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001212 


177562 




TKBl 


177362 




1066 


001214 


177564 




TP8| 


177364 




1067 


001216 


177566 




TPBl 


177366 




1066 


001220 


000060 




TKVTRI 


60 




1069 


001222 


000200 




TKLVLI 


PRTV4 




1070 


001224 


000064 




TPVTRI 


64 




1071 


001226 


000200 




TPLVLI 


PRTY4 




1072 


001230 


000000 




TTYTYP? 


OPEN 




1073 


001232 


000000 




PRBNUMI 


OPEN 




1074 


001234 


000000 




K3TARTI 


OPEN 




1075 


001236 


000000 




CURTSTl 


OPEN 




1076 


001240 


000000 




RTNNOl 


OPEN 




1077 


001242 


000000 




NXTSTl 


OPEN 




1078 


001244 


000000 




ZCTRI 


OPEN 




1079 


001246 


000000 




8C0PTRI 


OPEN 




1060 


001250 


000000 




PRGIDI 


OPEN 




1061 


001252 


005144 




PRGTAB8 


PRQ0 




1062 


001254 


007652 






PRB1 




1063 


001256 


010026 






PRG2 




106a 


001260 


011462 






PRG3 




1065 


001262 


012110 






PRG4 




1066 


001264 


012410 






PRG3 




1087 


001266 


013370 






PRG6 




1086 


001270 


013454 






PRG7 




1089 


001272 


013626 






PRG10 




1090 


001274 


013662 






PRGU 




1091 


001276 


013672 






PRG12 




1092 


001300 


013762 






PRG13 




1093 


001302 


014034 






PRG14 




1094 


001304 






EMTTAB1 






1095 


001304 


002666 






TYP 




1096 


001306 


003014 






TYP8 




1097 


001310 


003146 






8TAL 




1098 


001312 


001466 






ERR 




1099 


001314 


001446 






DTCHK 




1100 


001316 


001422 






CHLT 




1101 


001320 


002414 






8TLSRV 




1102 


001322 


002444 






STL8PV 




1103 


001324 


001434 






EHLT 




1104 


001326 


002074 






8RSETT 




1105 


001330 


001754 






CHAINN 




1106 


001332 


002210 






CHK33 





ISET UP TIME OUT VECTOR 

ITRY TO REFERENd THf, 

IMARDWARg SWITCH REGISTER 

IBRANCH IP NO TIME OUT TRAP OeCURRS 

JCHAN8E THE SWITCH RESISTER POINTER 

»T0 POINT TO A SOFTWARE SWITCH RI0ISYIR 

IRE8T0RE THE STACK 

IRE8T0RE TIME OUT VECTOR 

ISO TO START OF PRO@RAM 9 

IL8R CSR 

ILSR BUFFER 

ILSP CSR 

ILSP BUFFER 

ILSR INTERRUPT VECTOR 

ILSR PRIORITY LEVEL 

IL8P INTERRUPT VECTOR 

IL8P PRIORITY LEVEL 

ICONTAINS CURRENT PROGRAM* 

fCURRENT PROGRAM START ADDRESS, 

ICONTAINS AODR OF CURRENT TEST, 

ICONTAINS CURRENT TEST *, 

ICONTAINS AODR OF NEXT TEST, 

ICONTAINS CURRENT ITERATION COUNT 

ICONTAINS CURRENT SCOPE POINTER, 

ICONTAINS PROGRAM INDICATORS 

IPRG0 START ADDRESS 

|PRGi START ADDRESS 

IPRG2 START ADDRESS 

IPRG3 START ADDRESS 

IPR64 START ADDRESS 

IPRG3 START ADDRESS 

FPRG6 START ADDRESS 

|PRG7 START ADDRESS 

IPRG10 START ADDRESS 

IPRG11 START ADDRESS 

IPRG12 START ADDRESS 

IPRG13 START ADDRESS 

IPRG14 START ADDRESS 



IPOINTER 


POR 


EMT 


CALL 


TYPE 


IPOINTER 


FOR 


EMT 


CALL 


TYPES 


IPOINTER 


FOR 


EMT 


CALL 


STALL 


IPOINTER 


FOR 


EMT 


CALL 


ERROR 


IPOINTER 


FOR 


EMT 


CALL 


DATCMK 


IPOINTER 


FOR 


EMT 


CALL 


CHALT 


IPOINTER 


FOR 


EMT 


CALL 


STRDRV 


IPOINTER 


POR 


EMT 


CALL 


STPCHV 


IPOINTER 


FOR 


EMT 


CALL 


EHALT 


IPOINTER 


FOR 


EMT 


CALL 


SRESET 


IPOINTER 


FOR 


EMT 


CALL 


SCOPE 


IPOINTER 


FOR 


EMT 


CALL 


CK3S 
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1107 
1108 
1109 
1110 
1111 
1112 
1113 
1114 
1115 
1116 
1117 
1116 
1119 
1120 
1121 
1122 
1123 
1124 
1125 
1126 
1127 
1126 
1129 
1130 
1131 
1132 
1133 
1134 
1135 
1136 
1137 
1136 
1139 
1140 
1141 
1142 
1143 
1144 
1145 
1H6 
1147 

nae 

1149 
1150 
1131 
1152 
1153 
1154 
1155 
1156 
1157 
1158 
1159 
1160 



001334 
001336 
001340 
001342 
001344 
001346 
001350 
001352 
001354 
001356 
001360 
001362 
001364 
001366 
001370 
001372 
001374 
001376 
001400 
001402 
001404 
001406 
001410 
001412 
001414 
001416 
001420 

001422 
001424 
001430 
001432 



002226 
002224 
004574 
001456 
002264 
002324 
002240 
002512 
003046 
003206 
003306 



000000 
000000 



000000 
000000 
000000 



000000 
000000 



000000 



011600 

162700 000002 



000002 



001434 011600 

001436 162700 000002 

001442 000000 

001444 000002 

001446 126767 177712 

001454 001403 

001456 016700 177702 

00ia62 000000 



177711 



00146a 000002 

001466 032777 040000 176300 

001474 001004 

001476 011600 

001500 162700 000002 

001504 000000 

001306 000002 

001310 032777 100000 176436 

001516 001403 



CHK35 

CHK33B 

TYPL3 

DTHLT 

SAVRG 

RSTRG 

CKASR 

RSETT2 

DLY 

RDLY 

RSTAL 
RCNTI OPEN 
CRBUFl OPEN 
CHRil OPEN 
CHR2I OPEN 
CHR3I OPEN 
CHR1AI OPEN 
CHR2AI OPEN 
CHR3AI OPEN 
ERCTRI OPEN 
CTRA! OPEN 
CTRBI OPEN 
CTRCI OPEN 
CTRDI OPEN 
BRCTRE OPEN 
DVDNDl OPEN 
DVQUOTI OPEN 
ICOMMON HALT ROUTINE 
CHLT! MOV *X6,X0 

SUB 02, %0 

HALT 

RTI 
IUNCONDITIONAL ERROR HALT ROUT 
EHLT1 MOV »X6,X0 

SUB #2,80 

HALT 

RTI 
IDATA CHECK ROUTINE, 
DTCHKI CMPB CRBUF,CRBUP*t 

BEQ DTCHKA 
DTHLTI MOV CRBUF,X0 

HALT 

DTCHKAI RTI 
ICONDITIONAL ERROR HALT, 



IPOINTER FOR EMT CALL CK35 

IPOINTER FOR EMT CALL CK37 

IPOINTER FOR EMT CALL TYPLNS 

IPOINTER FOR EMT CALL DATHLT 

IPOINTER FOR EMT CALL SAVREG 

IPOINTER FOR EMT CALL R8TREG 

IPOINTER FOR EMT CALL CHKASR 

IPOINTER FOR EMT CALL RESET2 

IPOINTER FOR EMT CALL DELAY 

IPOINTER FOR EMT CALL RDELAY 

IPOINTER POR EMT CALL RSTALL 
ICHARACTER COUNT 
IHOLDS ONE CHARACTER PROM READER, 



ERRl 



ERRAt 



BIT 

BNE 

MOV 

SUB 

HALT 

RTI 



#BIT14,03RPTR 

ERRA 

»X6,X0 

#2,X0 



IROUTINE END HALT SUBROUTINE, 

SHALT! BIT SBITif,P8RPTR 

BEQ 8HLTA 



IDEVELOP ADDRESS OF CALLER, 

IHALT, ADDRESS OF CALL INSTRUCTION 
UN DATA LIGHTS, 
INE. 

IDEVELOP ADDRESS OF CALLER, 

IHALT, ADDR OF ERROR CALL 
UN DATA LIGHTS, 

ICOMPARE EXPECTED AND RECEIVED 
ICHARS, BRANCH IF SAME, 
IMOVE S/B AND WAS CHARS TO R0, 
IDATA ERROR HALT, GOOD CHAR IN 
IDATA LIGHTS LEFT, BAD CHAR IN DATA 
ILIGHTS RIGHT, EXIT, 

I8C0PE SWITCH SETf 

|BR IF YES, 

IDEVELOP CALLER'S ADDRESS, 

IERROR HALT, 
IEXIT, 

IHALT AT END OF TESTf 
IBR IP NOT, 



9 MAIN 8 
DIKLAE 



MACUi 1T(MT) 17»NQV«?S Hfi# PAGE §| 



UM §01310 116780 
11*3 001316 00020? 



i?TS14 



HOVB 
HALT 

IHLTAl RTI IT 



RTNNO, S0 ICURRENT TE8T $ TO Ri 9 
IROUTINE END HALT 9 
UXIT. 
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DZKLAE 
















1164 


001530 


012706 


001200 




START! 


MOV 


»SPB0T,%6 


1165 


001534 


005067 


176236 






CLR 


PSW 


1166 


001540 


012767 


000006 


176236 




MOV 


#6,MACHER 


1167 


001546 


005067 


177466 






CLR 


RTNNO 


1168 


001552 


005737 


000042 






T8T 


0042 


1169 


001556 


001404 








BEQ 


IS 


1170 


001560 


004767 


001616 






JSR 


PC,TIMCAL 


1171 


001564 


000167 


012244 






JMP 


PRG14 


1172 


001570 


017700 


176400 




ist 


MOV 


*SRPTR,X0 


1173 


001574 


042700 


177760 






BIC 


#177760, X0 


1174 


001600 


020027 


000014 






CMP 


%0,*14 


1175 


001604 


101402 








BLOS 


CRTA 


117b 


001606 


104010 






XNCPRG3 


EHALT 




1177 


001610 


000747 








BR 


START 


1178 


001612 


005067 


177432 




CRTAI 


CLR 


PRGID 


1179 


001616 


010067 


177410 






MOV 


X0,PRGNUM 


1160 


001622 


001404 








BEQ 


CRTS 


1161 


001624 


004767 


001532 






JSR 


PCTIMCAL 


1162 


001630 


016700 


177376 






MOV 


PRGNUM,X0 


1183 


001634 


000241 






CRTS! 


CLC 




1184 


001636 


006100 








ROL 


%0 


1185 


001640 


000170 


001252 






JMP 


#PRGTAB(0) 


1186 


001644 


104005 






SRSETl 


CMALT 




1187 


001646 


016767 


177362 


177366 


GETROY! 


MOV 


KSTART.NXTST 


1188 


001654 


012767 


000006 


176122 


CLEAN! 


MOV 


*6,MACHER 


1189 


001662 


012706 


001200 






MOV 


#SPB0T,%6 


1190 


001666 


104400 








OELAYX 




1191 


001670 


1040U 








SRESET 




1192 


001672 


005067 


176100 






CLR 


PSW 


1193 


001676 


004767 


000210 




GTRDYA! 


JSR 


%7,F0RWD 


1194 


001702 


032777 


001000 


176264 


GTRDYBI 


BIT 


#BIT*,P3RPTR 


1195 


001710 


001002 








BNE 


GTROYC 


1196 


001712 


000177 


177320 






JMP 


#CURTST 


1197 


001716 


017700 


176252 




GTROYC! 


MOV 


*3RPTR,X0 


1198 


001722 


042700 


177600 






BIC 


#177600 r %0 


1199 


001726 


126700 


177306 






CMPB 


RTNNO,X0 


1200 


001732 


001002 








BNE 


GTRDYD 


1201 


001734 


000177 


177276 






JMP 


PCURT8T 


1202 


001740 


022767 


177777 


177274 


GTROYOi 


CMP 


#-i»NXT8T 


1203 


001746 


001353 








BNE 


GTROYA 


1204 


001750 


104010 






INCRTNI 


EHALT 




1205 


001752 


000735 








BR 


GETRDY 


1206 


001754 


012706 


001200 




CHAINNI 


MOV 


#8PB0T,R6 


1207 


001760 


032777 


040000 


176206 




BIT 


#BIT14,#8RPTR 


1206 


001766 


001406 








BEQ 


CHNA 


1209 


001770 


022767 


177777 


177250 




CMP 


«-t,8C0PTR 


1210 


001776 


001402 








BEQ 


CHNA 


1211 


002000 


000177 


177242 






JMP 


#SCOPTR 


1212 


002004 


032777 


004000 


176162 


CHNA1 


BIT 


#BITll,93ftPTR 


1213 


002012 


001003 








BNE 


CHNAA 


1214 


002014 


003367 


177224 






DEC 


ICTR 


1215 


002020 


001402 








BEQ 


CHNAA 


1216 


002022 


000177 


177220 






JMP 


#8COPTR 


I2S7 


002026 


004767 


177456 




CHNAAI 


JSR 


*7,§MALT 



ISET BOTTOM OF SP STACK. 



ICHAIN OR AUTO«ACCEPTANCE? 
|BR IP NOT. 

ICALIBRATE DELAY ROUTINE, 
ISO RUN PR614, 

IC»3RPTR) TO R0 
ILIMIT CSR) TO BITS 3»0 
JCOMPARE CSR) TO PROGRAM LIMIT 
fVALID PROGRAM NUMBER? 
|NO. INCORRECT PRG NUMBER 
ISTART OVER. 

rSAVE PROGRAM NUMBER AT PRGNUM 
|BR IF 0, 

^CALIBRATE DELAY ROUTINE, 
JPRGNUM BACK TO R0. 

IR0X2 

IGO TO SELECTED PROGRAM, 

ISET SR OPTIONS DESIRED 

MDDR OF 1ST ROUTINE TO NXT3T 

IRESET MACHER TRAP, 

I8ET UP BOTTOM OF STACK, 



IROLL FORWARD TO "NEXT" ROUTINE, 

^SELECT ROUTINE SWITCH SETT 

IBRANCH IF YES, 

|RUN CURRENT ROUTINE, 

|C»3RPTR) TO R0 

IMA3K UNDESIRED BITS 

JCOMPARE RTNNO TO (RB) 

IBRANCH IF ROUTINE NOT FOUND YET. 

IGO RUN ROUTINE, 

;no. CHECK FOR last ROUTINE. 

ILA3T ROUTINE? 

IVES. INCORRECT ROUTINE SELECTED. 

ISTART OVER, 

IRESET STACK, 

ISCOPE? 

|BR IF NOT, 

IYE8, SCOPE POINTER * »1? 

IBRANCH IP SCOPE ENTRY IS «1 8 

IRETURN TO ROUTINE. 

IINHIBIT ITERATION? 

IBR XF YES, 

INO, ICTR 0? 

IBR IF YES, 

|NO, RETURN TO TEST ROUTINE 

ISO HALT IF HALT SWITCH IS SET 



S MAIN 9 MACYil 17(6575 

Q2KIAE 



17«N0V«7S 14106 PACE IS 



> 



1316 
1219 
1220 
1221 
1282 
1213 
1S14 
1285 

ias6 

1227 
1223 
1129 
1230 
1131 
1332 
1233 
1234 
1335 
1236 
1237 
1238 
1239 
1240 
1201 
1242 
1243 
1244 
1245 
1246 
1247 
124S 
1249 
1230 
1251 
1232 
1253 
1254 
1255 
1256 
1257 
1258 
1259 
1260 
1261 
1262 
1263 
1264 
1265 
1266 
1267 
1265 
1269 
1270 
1271 



mmm 

80I04S 
00g0§e 
002052 
002056 
002060 
001062 
002064 
002072 
002076 
002104 
002106 
301110 
002112 
002116 
002122 
002126 
002132 
002134 
002140 
002144 
002150 
002152 
002160 
002166 

002170 
002172 
002176 
002200 

002202 
002206 

002210 
002216 
002220 
002224 
002226 
002234 
002236 
002240 
002246 
002250 
002252 
002254 
002262 

002264 
002270 
002274 
002276 

002300 
002302 



@3gm 
8ei3ea 

BB276T 
BB1301 

013700 
001407 
000005 
004710 
000340 
000167 
032777 
001260 



801006 
117777 
§00043 



000656 
016705 
013567 
012567 
103767 
100407 
012567 
012567 
010567 
000207 
012767 
012767 
000766 

010046 
016600 
014000 
006300 
016000 



032767 
001371 
000002 
032767 
001001 
000002 
022626 
012767 
104012 

012667 
012667 
010446 
010346 
010246 
010146 



011736 

082060 



177124 
177116 
177114 
177116 

177104 
177102 
177066 

177777 



174134 

1T7171 



000240 

176®7§ 



177066 
177056 



CMN8I BIT 
8NE 

BNE 

CHNCI MOV 

8E0 

RESET 

LOGIC* JSR 

.WORD 
JMP 
HIRES 8IT 
BNE 
HALT 

br 

fqrwds hqv 

MOV 

MOV 

TST8 

BMX 

MOV 

MOV 

FORWDAI MOV 
RTS 

PORWDB* MOV 
MOV 
BR 



if fff§f 

clean 

##42iR@ 
HERE 

l»Ci(0) 

NOP, NOP, NOP 

prgi« 
mitibimrptr 

8ETRDY 

GITRDY 

NXY8T,Xf 

C5)**RTNN0 

(S3*»NXTST 

PR6I0 

FORWDB 

C5)*,XCTR 

CS)*,8C0PTR 

X5 ? CURT8T 

X7 

<a»l,3C0PT8 

»1,ICTR 

FOR WD A 



fW0 s k&Mt TIS'ff 
$M If NOT B 
I01T CONTENT! 0? 41, 
IBR IF S 9 

JRETURN TO MONITOR a 

ligTURN TO M8M» 

ILOOF PROGR^Mf 

IBR SF VIS, 

?PRO§RAH END HALT* 

IRESTART* 

IADDR OF NEXT ROUTINE TO RS» 

|GET NEXT ROUTINE NUMSgR a 

|GET ADOR OF NEXT ^NIX?* ROUTINE, 

ICHECK IF PROGRAM SCOPE AND X COUNT 

|PARAM£TERS 9 BRANCH IF NOT, 

l©IT ITERATION COUNT* 

fGET SCOPE LOOP ENTRY PO|NTIR 9 

fADOR OF NOW CURRENT TEST TO CURTST, 

IEXIT FORWD 3UBR0UTXNE 9 

IPORCE "NO SCOPE" 

IFORCE I COUNT OF 1 



IEMT INTERPRTER ROUTINE, 

EMTINTI MOV R0,*(6) /PUSH R0, 

MOV 2(6), R0 |GET EMT PC. 

MOV «£0),R0 |GET EMT CALL, 

ASL R0 ITIMES 2, 

MOV EMTTAB*10000(0),R0 |DEVELOP EMT AOOR, 

RTS R0 |G0 TO EMT RTN, RESTORE R0, 



032767 000001 177012 CHK33I BIT 
001002 3NE 

062716 000002 CHK33AI ADD 



IROUTXNES TO DETERMINE TTY TYPES, 



000001 



176774 
176762 



CHK33AI 
CHK33BI RTI 
CHK35I BXT 

BNE 

RTI 
CKASRI BIT 

BNE 

RTI 

P0PSP2 

MOV 

SCOPE 
ISAVE REGS TO 
SAVRGl MOV 

MOV 

MOV 

MOV 

MOV 

MOV 



#i,TTYTYP 
CHK33B 

•e,C6) 

#1#TTVTYP 
CHK33A 

«BIT3,TTYTYP 



•l,ICTR 

4 SUBROUTINE, 

(6)+,SVRPC 

(6}+,SVRPSW 

X4,»C6) 

X3,»(6) 

%2,«C6) 

Si, -(6) 



ICHECK FOR 33 

IBR XF NOT 33, 

ISET UF 33 EXIT, 

IEXXT, 

ICHECK FOR 35, 

IBR IF 35, 

INOT 35, 

ICHECK FOR ASR TTY, 

IBRANCH IF NOT ASR S 

|ASR, EXIT, 

IPOP STACK TWICE, 

IFORCE X COUNT TO A 1, 

/SCOPE TO BYPASS ROUTINE, 

JSAVE PC AND PSW, 

ISAVE REGS » 4 
UN STACK, 



"\ 



Jllii 



IAIN, 


MACY11 
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ZKLAE 














1272 


002304 


010046 




MOV 


%0,«(6) 




1273 


002306 


016746 


000010 


MOV 


SVRP8W,«C6) 


IRESTORE PC AND PSW, 


1274 


002312 


016746 


000002 


MOV 


8VRPC,*(6) 




1275 


002316 


000002 




RTI 




IEXIT, 


1276 


002320 


000000 




SVRPCJ OPEN 






1277 


002322 


000000 




SVRPSWI OPEN 






1278 








IRESTORE REGS 


i TO 4 SUBROUTINE. 


1279 


002324 


012667 


000030 


RSTRGI MOV 


(6)+,R5TPC 


ISAVE PC AND PSW, 


1280 


002330 


012667 


000026 


MOV 


(6)*,R8TPSW 




1281 


002334 


012600 




MOV 


(6)+,X0 


IRESTORE REGS 0*4 


1282 


002336 


012601 




MOV 


(6)+, XI 


IFROM STACK, 


1283 


002340 


012602 




MOV 


C6)+,%2 




1284 


002342 


012603 




MOV 


(6)+,X3 




1285 


002344 


012604 




MOV 


(6)+,X4 




1286 


002346 


016746 


000010 


MOV 


RSTPSW,*(63 


IRESTORE PC AND PSW, 


1287 


002352 


016746 


000002 


MOV 


R3TPC,»(6) 




1288 


002356 


000002 




RTI 




IEXXT 


1289 


002360 


000000 




RSTPCI OPEN 






1290 


002362 


000000 




RSTPSWI OPEN 






1291 








IROUTINE TO FETCH A CHARACTER 




1292 


002364 


012767 


000310 177022 


AREADI MOV 


#200 9 ,BRCTR 


ISET UP OELAY COUNT, 


1293 


002372 


005277 


176612 


INC 


#TK8 


IENABLE READER, 


1294 


002376 


104400 




DELAYX 




IWAIT, 


1295 


002400 


105777 


176604 


TSTB 


*TK3 


IDONE SET? 


1296 


002404 


100402 




BMI 


ARDB 


IBR IF YES. 


1297 


002406 


104010 




EHALT 




JERROR. NO RESPONSE FROM READER 


1298 


002410 


000765 




BR 


AREAO 


ITRY AGAIN, 


1299 


002412 


000207 




ARDBI RTS 


X7 


IEXIT 


1300 








IROUTINE TO SET 


LSR INTERRUPT 


VECTOR AND PRIORITY 


1301 


002414 


017667 


000000 000012 


STLSRVI MOV 


*(6)»STPRA*2 


IMOVE VECTOR ADOR TO STPRA*i 


1302 


002422 


062716 


000002 


ADD 


#2,*X6 


ISET UP EXIT 


1303 


002426 


016701 


176566 


MOV 


TKVTR,X1 




1304 


002432 


012721 


000000 


STPRAl MOV 


#OP£N,CD* 


ISET VECTOR ADDRESS 


1305 


002436 


016721 


176560 


MOV 


TKLVL,C13* 


ISET PRIORITY 


1306 


002442 


000002 




RTI 




IEXIT 


1307 








IROUTINE TO SET 


LSP INTERRUPT 


VECTOR AND PRIORITY, 


1308 


002444 


017667 


000000 000012 


STLSPVI MOV 


i(6),STPPA*2 


IMOVE VECTOR ADOR TO 8TPPA*2 


1309 


002452 


062716 


000002 


AOD 


*2,*X6 


ISET UP EXIT 


1310 


002456 


016701 


176S42 


MOV 


TPVTR,X1 




1311 


002462 


012721 


000000 


STPPAl MOV 


#QPEN,(1)+ 


ISET VECTOR ADDRESS, 


1312 


002466 


016721 


176534 


MOV 


TPLVL,CD* 


ISET PRIORITY 


1313 


002472 


000002 




RTI 




IEXIT, 


1314 








IROUTINE TO ISSUE RESET, 




1315 


002474 


012700 


052525 


SRSETTI MOV 


#52525,30 


IDATA TO R0 e 


1316 


002500 


005100 




COM 


X0 


ICOMPLEMENT (R0J. 


1317 


002502 


010067 


177770 


MOV 


X0,8R3ETT+2 


ICR03 TO SRSETT+g, 


1318 


002506 


000005 




RESET 




IISSUE RESET, £R0) XS 


1319 


002510 


000002 




RTI 




IDISPLAYED, EXIT, 


1320 








IDOUBLE RESET SUBROUTINE. 




1321 


002512 


104011 




R3ETT2I SRESET 






1322 


002514 


1040U 




SRESET 






1323 


002516 


000002 




RTI 




IEXIT. 


1324 








IRANDOM NUMBER i 


GENERATOR, ROUTINE EXITS WITH NUMBER IN REGISTER 


1325 


002520 


016700 


000042 


RNGENI MOV 


RPlfXB 





9 HAIN g 


MACYil 


1TCMT) 


17»N0V® 


73 Ull 


6 FA@f 


11 




9IKUg 
















1316 


001314 


006100 








ROL 


80 


mi 


001336 


006100 








ROL 


80 


lias 


mnm 


066700 


000034 






ADD 


RP3,80 


1319 


003334 


010067 


000016 






MOV 


80,RP1 


1330 


£01340 


006li@ 








ROL 


80 


1331 


002341 


006100 








ROL 


80 


1332 


§03344 


®667§0 


t§§§§0 






ADD 


RP3,80 


1333 


002390 


006100 








ROL 


80 


1334 


003332 


006100 








ROL 


80 


1333 


002S34 


010067 


000010 






MOV 


80,RP3 


1336 


003360 


016710 


000002 






MOV 


RP1,%0 


1337 


003364 


000307 








RT8 


87 


1338 


002366 


001233 






RPil 


1333 




133$ 


001370 


007612 






RP2I 


7633 




1340 


00337S 


104006 






BREAD! 


STRDRV 




13«1 


003574 


001632 








BREADS 




1342 


003376 


053777 


000101 


176404 




813 


#101,0TKS 


1343 


002604 


104034 








DELAY 




1344 


003606 


000310 








200 9 




1345 


00§610 


003077 


176374 






CLR 


#TKS 


1346 


003614 


104010 








EMALT 




1347 


002616 


000763 








BR 


BREAD 


1348 


001630 


022636 






BREADAI 


P0P8P2 




1349 


002633 


117767 


176364 


176534 




M0V8 


0TKB,CRBUF 


1350 


002630 


000207 








RT8 


87 


135J 


002632 


005077 


1763S2 




BREADS! 


CLR 


0TK8 


1352 


002636 


105777 


176346 






T3TB 


PTKS 


1353 


002642 


100003 








BPL 


BREADC 


1354 


002644 


012716 


003630 






MOV 


8BREADA,#X6 


1355 


002650 


000002 








RTI 




1356 


002632 


000000 






BREADCI 


MALT 




1357 


002654 


012716 


002662 






MOV 


0BREADD, £6} 


1358 


002660 


000002 








RTI 




1359 


002662 


022626 






BREADD! 


P0PSP2 




1360 


002664 


000742 








BR 


BREAD 


1361 










/SUBROUTINE TO 


OUTPUT ASCII 


1362 


002666 


011600 






TYPl 


MOV 


086,80 


1363 


002670 


062716 


000002 






ADD 


#3,986 


1364 


002674 


011000 








MOV 


080,80 


1365 


002676 


112067 


000110 




TYPA! 


MOVB 


(0)*, TYPDAT 


1366 


002702 


122767 


000100 


000102 




CMPB 


&100, TYPDAT 


1367 


002710 


001003 








BNE 


TYPC 


1368 


002712 


104024 








DELAY 




1369 


002714 


000144 








100, 




1370 


002716 


000002 








RTI 




1371 


002720 


122767 


000045 


000064 


TYPCJ 


CMPB 


#45, TYPDAT 


1372 


002726 


001416 








BEQ 


TYPF 


1373 


002730 


122767 


000043 


000034 




CMPB 


#43, TYPDAT 


1374 


002736 


001417 








BEQ 


TYPG 


1375 


002740 


004767 


000002 






JSR 


87,TYPD 


1376 


002744 


000754 








BR 


TYPA 


1377 


002746 


116777 


000040 


176242 


TYPDI 


MOVB 


TYPDAT, #TPB 


1378 


002754 


105777 


176234 






TSTB 


0TPS 


1379 


002760 


100375 








BPL 


,**4 



?EXIT 9 NUMBER IN R@ 



/3ET READER VECTOR 
ITO BREADS 

/ENABLE L3R AND LSR1 S 
IAWAIT INTERRUPT, 

/CLEAR L3RI ENABLE^ 
/NO RESPONSE HALT, 
ITRY A6AIN 9 

/CHAR READ TO CRBUF S 

/EXIT SUBROUTINg 9 

/CLEAR L3R INTERRUPT ENABLE* 

/TEST FOR DONE, 

/BRANCH IF DONE NOT SET S 

/MODIFY INTERRUPT EXIT TO BREADA, 

/OK, EXIT INTERRUPT, 

/HALT, DONE BIT NOT SET AFTER INTERRUPT 

/POINT TO BREADD, 

/EXIT INTERRUPT, 

f TRY AGAIN. 
SAGE ON TELETYPE PRINTER, 
/GET ADDRESS THAT CONTAINS MESSAGE ADDRESS B 
ISET UP EXIT, 

/ADDRESS OF MESSAGE TO R0 S 
/GET CHARACTER 
ICHECK FOR"#»CHARACTER 
/BRANCH IF NOT B 0« 9 
/WAIT 100 MSECS a 

/TERMINATOR CHAR 9 DONE, EXIT 9 

/CHECK F0R"8» B 

/BRANCH IF»8" 

/NOT n X" 9 CHECK FOR"#«. 

IBRANCH IF "#» 

/TYPE CHAR IN TYPDAT 

/OUTPUT CHARACTER TO PRINTER 
/WAIT FOR DONE FLAG 9 
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1380 


002762 


000207 








RTS 


87 


/EXIT 


1381 


002764 


112767 


000015 


000020 


TYPF! 


MOVB 


#15, TYPDAT 


/MOVE CARRIAGE RETURN CODE TO TYPDAT 


1382 


002772 


004767 


177750 






JSR 


87, TYPO 


/GO TYPE CHAR, 


1383 


002776 


112767 


000012 


000006 


TYPG! 


MOVB 


#13# TYPDAT 


/MOVE LF CODE TO TYPDAT, 


1384 


003004 


004767 


177736 






JSR 


X7,TYPD 


/GO TYPE CHAR, 


1385 


003010 


000732 








BR 


TYPA 




1386 


003012 


000000 






TYPDAT! 


OPEN 






1387 










/SUBROUTINE TO 


OUTPUT A SERIES 


OF ASCII MESSAGES ON TELETYPE PRINTER 


1388 


003014 


011600 






TYPSI 


MOV 


#86, X0 


/GET ADDRESS THAT CONTAINS MESSAGE Al 


1339 


003016 


062716 


000002 






ADD 


#2,986 


/UPDATE TO NEXT MESSAGE ADDRESS 


1390 


003022 


011067 


000014 






MOV 


0X0,TYP8B 


/ADDRESS OF MESSAGE TO TYP8B 


1391 


003026 


022767 


177777 


000006 




CMP 


••i,TYPSB 


/CHECK FOR TERMINATOR 


1392 


003034 


001001 








BNE 


TYPSA 


/BRANCH IF NOT TERMINATOR, 


1393 


003036 


000002 








RTI 




/TERMINATOR, EXIT 


1394 


003040 


104000 






TYP8AI 


TYPE 




/CALL ON TYP SUB TO TYPE MESSAGE 


1395 


003042 


000000 






TYPSBl 


OPEN 




/ADDRESS OF MESSAGE GOES HERE 


1396 


003044 


000763 








BR 


TYPS 


/GO PROCESS NEXT MESSAGE 


1397 










SUBROUTINE TO 


DELAY A SPECIFIED NUMBER OP MILLISECONDS 


1398 




003050 








DLCNTs 


. + 2 




1399 


003046 


011627 


000000 




DLY! 


MOV 


C6),#0 


/GET DELAY COUNT ADDRE88, 


1400 


003052 


062716 


000002 






ADD 


#2,086 


/SET UP EXIT ADDRESS 


1401 


003056 


017767 


177766 


177764 




MOV 


0DLCNT,DLCNT 


/DELAY COUNT TO STACK 


1402 


003064 


005067 


174706 






CLR 


PSW 


/SET PRIORITY 


1403 




003072 








MSECh.< 


»2 




1404 


003070 


012767 


000000 


000046 


DLYAI 


MOV 


#0,DLYT 


/l MSEC COUNT TO DLYT 


1405 


003076 


016767 


000042 


000040 


DLYB! 


MOV 


DLYT,DLYT 




1406 


003104 


016767 


000034 


000032 




MOV 


DLYT,DLYT 




140? 


003112 


016767 


000026 


000024 




MOV 


DLYT,DLYT 




1408 


003120 


016767 


000020 


000016 




MOV 


DLYT,DLYT 




1409 


003126 


005367 


000012 






DEC 


DLYT 


/DECREMENT DLYT, 


1410 


003132 


001361 








BNE 


DLYB 


/BRANCH IF NOT 0, 


1411 


003134 


005367 


177710 






DEC 


DLCNT 


/DECREMENT COUNT 


1412 


003140 


001353 








BNE 


DLYA 


/BR IF NOT DONE DELAYING 


1413 


003142 


000002 








RTI 




/EXIT* 


1414 


003144 


000000 






DLTT1 


OPEN 






1415 










/SUBROUTINE TO 


STALL A RANDOM 1 


DUMBER OF MILLISECONDS, MAXIMUM STALL 


1416 










/DETERMINED BY 


CONTENTS OF LOC 


STLMSK, 


1417 


003146 


032767 


040000 


176074 


STALI 


BIT 


*BIT14,PRGID 


/TEST FOR STALLS ALLOWED, 


1413 


003154 


001001 








BNE 


STALAA 


/ALLOWED, 


1419 


003156 


000002 








RTI 




/NOT ALLOWED* 


1420 


003160 


004767 


177334 




STALAAI 


JSR 


X7,RNGEN 


/GO GET RANDOM NUMBER, 


1421 


003164 


046700 


000014 






BIC 


STLM3K,X0 


/# IN R0, APPLT STALL MA8K 9 


1422 


003170 


001404 








BEQ 


3TALB 


/BRANCH IF RESULT IS 9 


1423 


003172 


010067 


000002 






MOV 


80,STALA 




1424 


003176 


104024 








DELAY 




/DELAY 


1425 


003200 


000000 






3TALAI 


OPEN 




/DELAY COUNT 


1426 


003202 


000002 






STALBI 


RTI 




/D0NE 9 EXIT, 


1427 


003204 


000000 






STLMSKI 


OPEN 




/STALL MASK, 


1423 










/READER 


DELAY 


ROUTINE, 




1429 




003210 








RDLCNT 


s,*2 




1430 


003206 


011627 


000000 




RDLYJ 


MOV 


C6),#0 




1431 


003212 


062716 


000002 






ADD 


#2,C6) 




1432 


003216 


017767 


177766 


177764 




MOV 


0RDLCNT, RDLCNT 


/GET DELAY COUNT, 


1433 


003224 


005067 


174546 






CLR 


PSW 
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1434 


103210 


016767 


177616 


S0S046 


RDLYA1 


MOV 


MSECrDLYR 




1433 


003236 


016767 


iB@04§ 


00304® 


RDLYBl 


MOV 


DLYR, DLYR 




S436 


e@H44 


011767 


S00014 


§00031 




nov 


DLYR, DLYR 




1437 


001112 


aim? 


000026 


000024 




MOV 


DLYR, DLYR 




1438 


303160 


016767 


001030 


000016 




MOV* 


DLYR.OLYR 




143) 


003166 


005317 


000011 






dec 


DLYR 


/DECREMENT DLYR, 


na@ 


0S3172 


001361 








BNE 


RDLY1 


/BR IF NOT § 9 


i«#i 


303274 


S33336? 


177710 






DSC 


RDLCNT 


/DECREMENT COUNT, 


1442 


003300 


001353 








BNE 


RDLYA 


/BR IP NOT ® 9 


1443 


003302 


000012 








RTI 




/EXIT, 


1444 


003304 


000000 






DLYRI 


OPEN 






1445 










/READER 


STALL ROUTINE, 




1446 


003306 


032767 


040000 


173734 


R8TALI 


BIT 


#BIT14,PR6ID 


/STALL? 


1447 


003314 


001001 








BNE 


RSTLA 


/br IF YE8 e 


1448 


003316 


000002 








RTI 




/NO, EXIT, 


1449 


003320 


004767 


177174 




fWU! 


JSR 


PCfRNBEN 


/GET RANDOM NUMBER^ 


1430 


003324 


046700 


r?654 






BIC 


3TLMSK,%0 




1451 


003330 


001404 








BEQ 


RSTLB 




1452 


003332 


010067 


000002 






MOV 


X0,R8TLAA 




1453 


003336 


104025 








RDELAY 




/DELAY. 


1454 


003340 


000000 






RSTLAAI 


OPEN 






1455 


003342 


000002 






R3TLBI 


RTI 




/DONE, EXIT. 


1456 










ISUB TO 


DELAY > 


[ TIME, 




1457 




003350 








DLYR0«*DLYX*4 




1453 




003362 








0LYRtaDLY8A*4 




1459 


003344 


012727 


000144 


000000 


DLYXI 


MOV 


#100, ,m 


/ 


1460 


003352 


005067 


174420 






CLR 


paw 




1461 


003356 


012727 


001750 


000000 


DLYXA! 


MOV 


#1000,, #0 


/COUNT TO DLYRI, 


1462 


003364 


005367 


177772 




OLYXB* 


DEC 


DLYR1 


/DECREMENT DLYRI, 


1463 


003370 


001375 








BNE 


DLYXB 


/BR IP NOT 9 


1464 


003372 


005367 


177732 






DEC 


DLYR0 


/DECREMENT DLYR0, 


1465 


003376 


001367 








BNE 


DLYXA 


/BR IF NOT B 


1466 


003400 


000002 








RTI 




/EXIT, 


1467 










/DELAY 


ROUTINE 


CALIBRATE ROUTINE. 


146S 


003402 


004767 


000050 




TIMCAL! 


JSR 


PCTSPCH 


/OUTPUT CHAR a 


1469 


003406 


004767 


000044 






JSR 


PCTSPCH 


/OUTPUT CHAR, 


1470 


003412 


104400 








DELAYX 






1471 


003414 


104011 








SRESET 






1472 


003416 


005067 


173776 






CLR 


DVQUOT 




1473 


003422 


016767 


175766 


175766 




MOV 


BRCTR, DVDNO 


/SAVE BRCTR CONTENTS, 


1474 


003430 


162767 


000144 


175760 


TIMCLA1 


SUB 


#100.,DVDND 


/DVOND»100 


1475 


003436 


103403 








BLO 


TIMCLB 


/BR IF UN3UCCE8PUL, 


1476 


003440 


005267 


175754 






INC 


DVQUOT 


/INCR QUOTIENT, 


1477 


003444 


000771 








BR 


TIMCLA 




1478 


003446 


016767 


175746 


177416 


TIMCLBI 


MOV 


DVQUOT, MSEC 


/SAVE 1 MSEC CONSTANT 


1479 


003454 


000207 








RTS 


PC 


/EXIT. 


1430 


003456 


104007 






TSPCHI 


STPCHV 




/SET UP VECTOR, 


1481 


003460 


003542 








TSPCHA 






1432 


003462 


005067 


173726 






CLR 


BRCTR 




1483 


003466 


005077 


175524 






CLR 


STPB 


/LOAD BUFFER WITH t 


1484 


003472 


052777 


000100 


175514 




BIS 


*BIT6,««TPS 


/ENABLE INTERRUPT* 


1485 


003500 


016767 


175710 


175706 


TSPCHCI 


MOV 


BRCTR, BRCTR 




I486 


003506 


016767 


175702 


175700 




MOV 


BRCTR, BRCTR 




1487 


003514 


016767 


175674 


175672 




MOV 


BRCTR, BRCTR 
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1468 


003522 


016767 


175666 


173664 




MOV 


BRCTR, BRCTR 




1489 


003530 


005267 


175660 






INC 


BRCTR 




1490 


003534 


001361 








BNE 


TSPCHC 


/BR IF RESULT NOT 0, 


1491 


003536 


001434 








EHLT 




/NO INTERRUPT FROM PUNCH/PRINTER 9 


1492 


003540 


000777 








BR 


8 




1493 


003542 


012716 


003550 




TSPCHAI 


MOV 


STSPCHB, C6) 


/MODIFY INTERRUPT EXIT TP STPCHB, 


1494 


003546 


000002 








RTI 




/EXIT INTERRUPT, 


1495 


003550 


000207 






TSPCHBt 


RTS 


PC 


/EXIT. 


1496 










/SUBROUTINE TO 


GENERATE RANDOM 


CHARACTER COUNT 


1497 


003552 


004767 


176742 




GRCNTI 


JSR 


X7,RNGEN 


/GET RANDOM NUMBER 


1498 


003556 


046700 


000010 






BIC 


RCMSK,X0 


/APPLY MASK 


1499 


003562 


001773 








BEQ 


GRCNT 


/TRY AGAIN IF RESULT 


1500 


003564 


010067 


000004 






MOV 


X0,RNCNT 


/COUNT TO RNCNT 


1501 


003570 


000207 








RTS 


%1 


/EXIT. 


1502 


003572 


000000 






RCMSKI 


OPEN 




/RANDOM CHARACTER MASK, 


1503 


003574 


000000 






RNCNTl 


OPEN 




/RANDOM CHARACTER COUNT, 


1504 










/SUB TO 


COMPARE 


: READER DATA AGAINST EXPECTED DATA AND REPORT ERRORS 8 


1505 


003576 


004767 


000262 




BCHECKJ 


JSR 


X7,GTBIN 


/GET BIN CHARACTER(IN R03 


1506 


003602 


110067 


175557 






MOVB 


X0,CRBUFM 


/S/B CHAR TO CRBUF41 


1507 


003606 


126767 


175552 


175551 




CMPB 


CRBUF,CRBUP+1 


/COMPARE S/B AND WAS CHARS B 


1508 


003614 


001001 








BNE 


.^■4 


/BRANCH IF NOT SAME, 


1509 


003616 


000207 








RTS 


X7 


/SAME, EXIT, 


1510 


003620 


104017 








DATHLT 




/GO HALT AND DISPLAY DATA, 


1511 


003622 


005367 


175554 






DEC ERCTR 


/3 ERRORS? 


1312 


003626 


001002 








BNE 


,4-6 


/BRANCH IF NOT 3 YET, 


1313 


003630 


004767 


000002 






JSR 


%7,BSYNC 


/3 ERRORS, RESYNC READER, 


1514 


003634 


000207 








RTS 


%7 


/EXIT, 


1515 










/SUBROUTINE TO 


SYNC THE LSR TO 


A SPECIAL BINARY COUNT PATTERN TEST TAPE 


1516 


003636 


004767 


000164 




BSYNCI 


JSR 


%7,INBIN 


/INITIALIZE BINARY PATTERN 


1517 


003642 


004767 


176724 






JSR 


X7, BREAD 


/READ CHAR AND STORE AT CHR1 


1518 


003646 


116767 


175512 


175512 




MOVB 


CRBUF,CMR1 




1519 


003654 


004767 


176712 






JSR 


X7, BREAD 


/READ CHAR AND STORE AT CHR2 


1520 


003660 


116767 


175500 


175502 




MOVB 


CRBUF,CHR2 




1521 


003666 


004767 


176700 






JSR 


X7, BREAD 


/READ CHAR AND STORE AT CHR3, 


1522 


003672 


116767 


175466 


175472 




MOVB 


CRBUF,CHR3 




1523 


003700 


004767 


000012 






JSR 


X7,SYNCA 


/GO SYNC 


1524 


003704 


000754 








BR 


BSYNC 


/NO SYNC, TRY AGAIN, 


1325 


003706 


012767 


000003 


175466 




MOV 


#3, ERCTR 




1326 


003714 


000207 








RTS 


XT 


/SUCCESS, EXIT, 


1527 


003716 


012767 


001000 


000100 


SYNCAJ 


MOV 


#512.,SYCTRA 


Z312 TO SYCTRA, 


1328 


003724 


004767 


000134 




SYNCS! 


JSR 


X7,GTBIN 


/SIN CHAR TO CHR1A 9 


1529 


003730 


010067 


173440 






MOV 


X0,CHR1A 




1530 


003734 


004767 


000124 






JSR 


X7,GTBIN 


/BIN CHAR TO CHR2A, 


153| 


003740 


010067 


175432 






MOV 


X0,CHR2A 




1332 


003744 


004767 


000114 






JSR 


X7,GTBIN 


/BIN CHAR TO CHR3A, 


1533 


003730 


010067 


173424 






MOV 


X0,CHR3A 




1334 


003734 


026767 


175406 


175412 




CMP 


CMRi,CHRU 


/MATCH? 


1535 


363762 


001013 








BNE 


3YNCC 


/BR IF NOT, 


1336 


003764 


026767 


175400 


173404 




CMP 


CMR2,CHR2A 


/MATCH? 


1537 


003772 


001007 








BNE 


SYNCC 


/BR IP NOT, 


1333 


003774 


026767 


175372 


175376 




CMP 


CMR3,CHR3A 


/MATCH? 


1539 


004002 


001003 








BNE 


SYNCC 


/BR IF NOT, 


1540 


004004 


062716 


000002 






ADD 


#2,(6) 


/SET UP SYNCED EgIT 9 


1541 


004010 


000207 








RTS 


S7 


/EXIT, 



.HAIN, 


HAST1I 


17C6I7S 


17»NQV«73 14186 PA@f 


34 




DSKIAE 
















1542 


i@40ii 


001317 


mmm 




svNcei 


DEC 


IY6TRA 


1343 


mw%h 


001341 








INI 


IYNC1 


S344 


3i40§0 


104310 








EHALT 




1345 


304032 


00020? 








RTS 


I? 


1346 


@@40ia 


mmm 






fYCTRAl 


I OPEN 




S347 










/SUBROUTINE TO 


INITIALIZE BINARY 


1540 


004026 


012767 


17777? 


000014 


XNBXNl 


MQV 


#*1»RXND 


1549 


004334 


034367 


000130 






JSR 


Xi,BM0Vf 


iSS0 


004040 


004S§0 








RIND 




IS3| 


004043 


004051 








RIND*! 




iSS2 


084044 


000013 








u. 




1533 


004346 


000107 








RTS 


17 


1534 


004030 


000000 






RZNDI 


OPEN 




1535 


004052 


000000 






PT03 


OPEN 




1336 


004034 


000000 






PTl! 


OPEN 




1537 


004036 


000000 






PINDI 


OPEN 




153a 


004060 


000000 






PT0PI 


OPEN 




1539 


004062 


000000 






P71PJ 


OPEN 




1360 










/SPECIAL BINARY 


COUNT PATTERN SU 


1561 


004064 


016767 


177762 


177762 


QTBINJ 


MOV 


PT0,PT1 


1562 


004072 


005167 


177756 






COM 


PT1 


1563 


004076 


005167 


177746 






COM 


RIND 


1564 


004102 


601002 








BNE 


9*6 


1365 


004104 


005267 


177744 






INC 


PT1 


1366 


004110 


042767 


177400 


177736 




BIC 


#177400, PTl 


136T 


004116 


016767 


177732 


177726 




MOV 


PTliPTS 


1568 


004124 


016700 


177724 






MOV 


PT1,X0 


1569 


004130 


000207 








RTS 


X7 


1570 


004132 


016767 


177722 


177722 


GTBINP1 


MOV 


PT0P,PT1P 


1571 


004140 


005167 


177716 






COM 


PT1P 


1572 


004144 


005167 


177706 






COM 


PIND 


1573 


004130 


001002 








BNE 


,*6 


1574 


004152 


005267 


177704 






INC 


PT1P 


1575 


004156 


042767 


177400 


177676 




BIC 


#177400, PT1P 


1576 


004164 


016767 


177672 


177666 




MOV 


PT1P,PT0P 


1577 


004172 


016701 


177664 






MOV 


PTIPpXi 


1578 


004176 


000207 








RT8 


%7 


1579 










/OCTAL 


TO ASCII 


CONVERT ROUTINES 


1580 


004200 


012500 






ACNV6S 


MOV 


(5)*,X0 


1581 


004202 


012567 


000012 






MOV 


(5)*, ACNVB 


1582 


004206 


004767 


000052 






J3R 


X7,ACNV 


1583 


004212 


004567 


000122 






JSR 


%5,BM0VE 


158a 


004216 


004254 








MST 




1585 


004220 


000000 






acnvb: 


OPEN 




1586 


004222 


000006 








6 




1587 


004224 


000205 








RTS 


85 


1588 


004226 


012500 






ACNV4I 


MOV 


C5)*,X0 | 


1589 


004230 


012567 


000012 






MOV 


(5)+,ACNVC ] 


1590 


00423a 


004767 


000024 






JSR 


%7»ACNV j 


1591 


004240 


004567 


000074 






JSR 


X5,BM0VE j 


1592 


004244 


004256 








A1ST+2 




1593 


004246 


000000 






ACNVCl 


OPEN 




159a 


004250 


000004 








4 




1595 


004252 


000205 








RTS 


X5 1 



/TRIID lit TIMIi? 
JSR IF NOT, 
IVES, SYNg ERROR,, 
IIYNC ERROR BXIT, 



HIT ALL VARIABLI8 
ITO MINUS 1, 



/EXIT 



/PREVIOUS BIN CHAR TO PTl 



/MASK TO 8 BITS 

/SAVE BIN CHAR IN PT0 

/BIN CHAR TO R0„ 

IEXIT. 

/PREVIOUS BIN CHAR TO PTiP 



/MASK TO a BITS, 

/SAVE BIN CHAR IN PT0P, 

IBIN CHAR TO Rl, 

/exit, 

/convert to 6 ascii, get octal address 
/get ascii address 
/convert to ascii 

/MOVE 6 CHARS TO ASCII ADDRESS 



/EXIT 

/CONVERT TO 4 ASCII, GET OCTAL ADDRESS 

/GET ASCII ADDRESS 

/CONVERT TO ASCII 

/MOVE a CHARS TO ASCII ADDRESS, 



„MAIN 


MACYil 


27(657) 


17-NOV-75 


DZKLAE 








1596 


004254 


000000 




1597 


004256 


000000 




1598 


004260 


000000 




1599 


004262 


000000 




1600 


004264 


012701 


004262 


1601 


004270 


012702 


000006 


1602 


004274 


011067 


177762 


1603 


004300 


016703 


177756 


1604 


004304 


042703 


177770 


1605 


004310 


062703 


000060 


1606 


004314 


110341 




1607 


004316 


006067 


177740 


1608 


004322 


006067 


177734 


1609 


004326 


006067 


177730 


1610 


004332 


005302 




1611 


004334 


001361 




1612 


004336 


000207 




1613 








1614 


004340 


104020 




1615 


004342 


012501 




1616 


00434a 


012502 




1617 


004346 


012503 




1618 


00a350 


112122 




1619 


004352 


005303 




1620 


004354 


001375 




1621 


004356 


104021 




1622 


004360 


000205 




1623 








1624 


004362 


105777 


174626 


1625 


004366 


100001 




1626 


004370 


000207 




1627 


004372 


104010 




1628 


004374 


000772 




1629 








1630 


004376 


004767 


177760 


163| 


004402 


010077 


174610 


1632 


004406 


105777 


174602 


1633 


004412 


100375 




1634 


004414 


003000 




1635 


004416 


000207 




1636 








1637 


004420 


012700 


015135 


1638 


004424 


013501 




1639 


004426 


012702 


004526 


1640 


004432 


012767 


000003 00 


1641 


004440 


012267 


000060 


1642 


004444 


004767 


000010 


1643 


004450 


005367 


000044 


1644 


004434 


001371 




1643 


004436 


000205 




1646 


©04460 


003067 


■200036 


1647 


004464 


166701 


000034 


1648 


004470 


103403 





14:06 PAGE 35 



aist: open 

OPEN 

OPEN 
ACNVXI OPEN 
ACNVI MOV 

MOV 

MOV 

acnvm: mov 

BIC 

ADD 

MOVB 

ROR 

ROR 

ROR 

DEC 

BNE 

RTS 
/SUBROUTINE TO MOVE 
BMOVEI SAVREG 

MOV (5)*, XI 

MOV C5)+,X2 

MOV C5)*,X3 
BMOVAI MOVB Cl)*,(23 

DEC X3 

BNE BMOVA 

RSTREG 

RTS X5 



#A1ST+6,X1 

#6,X2 

#X0, ACNVX 

ACNVX, X3 

#177770,%3 

#60, X3 

X3,-U) 

ACNVX 

ACNVX 

ACNVX 

X2 

ACNVM 

X7 



/ADDR TO STORE ASCII TO Rl 

/6 TO R2 

/OCTAL WORD TO ACNVX 

/ISOLATE LEAST SIGNIFICANT OCTAL t 
/ADD 60 TO CONVERT TO ASCII 
/STORE ASCII BYTE 
/MOVE NEXT OCTAL DIGIT TO LEAST 
/SIGNIFICANT POSITION 



/DONE 6 TIMES? 
/NO, REPEAT, 
/YES, EXIT, 
VARIABLE NUMBER OF BYTES, 
/SAVE REGS, 
/GET«FROM"ADDRESS 
ZGET"TO"ADDRESS 
/GET COUNT 
/MOVE BYTE 
/DECREMENT COUNT 
/BRANCH IF NOT DONE, 
/RESTORE REGS S 
/DONE EXIT 



/SUBROUTINE TO CHECK FOR PUNCH READY. 



CPRDY! TST8 
BPL 
RTS 

CPRDYAI EHALT 
BR 



#TPS 

CPRDYA 

X7 

CPRDY 



/TEST FOR READY BIT, 
/BRANCH IF READY NOT SET, 
/OK, EXIT, 
/NOT READY, HALT, 



/SUBROUTINE TO PUNCH ON LSP CHARACTER IN REG 0, 



LSPCHI 



JSR 

MOV 

TSTB 

BPL 

CLR 

RTS 



%7, CPRDY 

X0,*TPB 

#TPS 

• *4 

X0 

X7 



/GO CHECK FOR PUNCH READY, 
/LOAD PUNCH BUFFER, 
/WAIT FOR DONE, 



/DONE, EXIT, 



1649 004472 005247 000024 



/BINARY TO DECIMAL ASCII CONVERT SUBROUTINE, 

BDCNVI MOV #DECVAL,X0 /SET UP ADDR TO STORE DECIMAL ASCII IN R0 

MOV #(55*, XI /BINARY VALUE TO Rl, 

MOV #ADTENP,X2 /ADDR OF TEN POWER STRING TO Rg 9 

M OV #5,CNVCTR /SET UP FOR 5 POWER CONVERSIONS, 

BDCNVAl MOV C2)*, TENPWR /MOVE POWER OF TEN VALUE TO TENPWR, 

JSR X7,SUBTEN /PERFORM CONVERSION 

DEC CNVCTR /DONE 5 CONVERSIONS? 

BNE BDCNVA /BRANCH IF NOT YET 5, 

RTS XS JYES, EXIT, 

SUBTENJ CLR DIGIT /CLEAR DIGIT 

SUBTNA! SUB TENPWR, XI /SUBTRACT TEN POWER FROM BINARY VALUE, 

BCS SUBTNB /BRANCH IF UNSUCCESSFUL SUBTRACTION, 

INC DIGIT 



a HAIN„ 


MACY11 


17C63T3 


17«»N0V« 


>fi U|B* PA@E 


3* 




SIKUE 
















1650 


304476 


000772 








BR 


SUBTNA 


1631 


304300 


066781 


000080 




3UBTNB1 


ADO 


T|NPWR,Xi 


1652 


004904 


062767 


000060 


000010 




ADO 


#*0fDZ8ZT 


1633 


004912 


116720 


000004 






t MOV§ 


DIBIT, C0)* 


1634 


004316 


000207 








*RTS 


X7 


1633 


004320 


000000 






CNVCTR8 


OPEN 




1636 


004322 


000000 






DIGITS 


OPIN 




1637 


004324 


000000 






TENSER! 


OPEN 




1493 


004526 


0334S0 






A0YENP! 


100§i a 




1639 


004330 


001730 








|08® s 




1660 


004332 


000144 








100* 




1661 


004334 


000012 








1@* 




i&6a 


004336 


300001 








1 




1663 










/SUBROUTINE TO 


TYPE A LINE Of 


1664 


004340 


012767 


000114 


000024 


TYPLNl 


MOV 


#76 9 ,TCTR 


1665 


004346 


012704 


015142 




TYPLAi 


MOV 


#BL0CKA,X4 


1666 


004332 


104002 






TYPLBt 


STALL 




1667 


004354 


112400 








MOVB 


C4}*,%0 


1668 


004336 


004767 


177614 






JSR 


X7,LSPCH 


1669 


004562 


005367 


000004 






DEC 


TCTR 


1670 


004566 


001371 








BNE 


TYPLB 


1671 


004370 


000207 








RT8 


SS7 


1672 


004372 


000000 






TCTR8 


OPEN 




1673 










/SUBROUTINE TO 


TYPE LINE OF 3 


1674 


004374 


011667 


000016 




TYPL3! 


MOV 


9X6,TPL3A 


1675 


004600 


017767 


000012 


000010 




MOV 


#TPL3A,TPL3A 


1676 


004606 


062716 


000002 






ADD 


#2,PX6 


1677 


004612 


004367 


000064 






JSR 


S3 f FBF3 


1678 


004616 


000000 






YPL3AI 


OPEN 




1679 


004620 


042767 


040000 


174422 




BIC 


#BIT14,PRGID 


1680 


004626 


004767 


177706 






JSR 


S7,TYPLN 


1681 


004632 


000002 








RTI 




1662 


004634 


112767 


000015 


010300 


8TBPI 


MOVB 


*15,BL0CKA 


1633 


004642 


112767 


000012 


010273 




MOVB 


#12iBL0CKA+l 


1684 


004630 


112767 


000015 


010376 


STBFAI 


MOVB 


#13, BLOCKS 


1683 


004656 


112767 


000012 


010371 




MOVB 


#12, BLOCKS*! 


1686 


004664 


112767 


000015 


010474 




MOVB 


$15,BL0CKC 


1687 


004672 


112767 


000012 


010467 




MOVB 


*12,BL0CKC*i 


1686 


004700 


000207 








RT3 


X7 


1689 










SUBROUTINE TQ 


FILL CHARACTER 


1690 


004702 


012567 


000004 




FBF31 


MOV 


C5)*,FBF3A 


1691 


004706 


004367 


177426 






JSR 


XS,BMOVE 


1692 


004712 


000B30 






FBF3AI 


OPEN 




1693 


004714 


013144 








BLOCK i 




1694 


004716 


000003 








3 




1693 


004720 


004567 


177414 




FBF3BJ 


JSR 


X5,BM0VE 


1696 


004724 


013144 








BLOCK! 




1697 


004726 


015147 








BL0CKi*3 


1698 


004730 


000105 








69, 




1699 


004732 


004567 


177402 






JSR 


%5, SHOVE 


1700 


004736 


015144 








BLOCK1 




1701 


004740 


015256 








BL0CK2 




1702 


004742 


000110 








72* 




1703 


004744 


000205 








RTS 


xs 



/RESTORE 8USTRACTID VALUE. 

/CONVERT (DIGIT) TQ ASCII 

rMOVI ASCII CHAR TO OICVAL FIELD. 

/EXIT, 



CHARACTERS 

176 TO CHAR COUNT 

/SET LINE ADDRESS |N R4 S 

/STALL IP ALLOWED* 

/GET CHARACTER 

/GO OUTPUT CHARACTIR 8 

/DONE? 

/BRANCH IF NOT D0NI 8 

/DONE* EXIT 

CHARACTERS 

/DEVELOP AND SET ADDRESS OF 

/DATA IN TPL3A, 

ISET UP EXIT, 

/FILL SUPPER WITH 3 CHARACTERS 

/DISABLE STALLS, 

IGO TYPE LINE OF CHARACTERS, 

/EXIT, 

/SUB TO SET UP BUFFER AREA, 



/EXIT 

BUFFER WITH 3 CHARACTERS, 

/MOVE 3 CHARS TO BUFFER, 



/FILL 72 CHARACTERS BUFFER 
/WITH 3 CHARACTERS 



.MAIN, 


MACY11 


27(6573 


17»NOV« 


75 148 


DZKLAE 










1704 










1705 


004746 


004567 


177366 




1706 


004732 


014176 






1707 


004754 


015144 






1703 


004756 


000077 






1709 


004760 


004567 


177354 




1710 


004764 


014176 






1711 


004766 


015243 






1712 


004770 


000011 






1713 


004772 


004567 


177342 




1714 


004776 


015144 






1715 


005000 


015256 






1716 


005002 


000110 






1717 


005004 


000207 






1718 










1719 


005006 


004567 


177326 




1720 


005012 


014162 






1721 


003014 


015144 






1722 


005016 


000006 






1723 


005020 


004567 


177314 




1724 


005024 


015144 






1725 


005026 


015152 






1726 


005030 


000102 






1727 


005032 


004567 


177302 




1728 


005036 


015144 






1729 


005040 


015256 






1730 


005042 


000110 






1731 


005044 


000207 






1732 










1733 


003046 


004567 


177266 




1734 


005032 


014170 






1733 


005054 


015144 






1736 


005056 


000006 






1737 


003060 


004567 


177254 




1738 


003064 


015144 






1739 


005066 


015152 






1740 


005070 


000102 






1741 


005072 


004567 


177242 




1742 


005076 


015144 






1743 


003100 


015256 






1744 


003102 


000110 






1745 


003104 


000207 






1746 










1747 


005106 


005777 


174100 




1748 


005112 


105777 


174072 




1749 


005116 


100375 






1750 


005120 


117767 


174066 


174236 


1731 


005126 


116723 


174232 




1752 


005132 


116700 


174226 




1733 


005136 


004767 


177234 




1754 


005142 


000207 







/SUBROUTINE TO FILL BUFFER WITH ALL CHARACTERS 



FBALL1 



JSR K5,BM0VE 

A 

BLOCK! 

63, 

JSR X5,BM0VE 

A 

BL0CK1+63, 

9, 

JSR X5,BM0VE 

BLOCKl 

BL0CK2 

7a, 

RTS X7 



/FILL 72 CHAR BUFFER WITH 
FALL CHARACTERS, 



/EXIT, 



/SUB TO FILL BUFFER WITH 33 WORST CASE PATTERN, 



FW336I 



JSR X5,BM0VE 

A33WP6 

BLOCKl 

6 

JSR X5,BM0VE 

BLOCKl 

BL0CK1+6 

66, 

JSR X5,BM0VE 

BLOCKl 

BL0CK2 

72, 

RTS X7 



/6 CHARACTER PATTERN TO BUFFER 



/FILL BUFFER WITH PATTERN, 



/EXIT 



/SUB TO FILL BUFFER WITH 35 WORST CASE PATTERN, 



FW356I 



JSR X3,8M0VE 

A3SWP6 

BLOCKl 

6 

JSR X5,BM0VE 

BLOCKl 

BL0CK1+6 

66, 

JSR X5,BM0VE 

BLOCKl 

BL0CK2 

72, 

RTS X7 



/6 CHARACTER PATTERN TO BUFFER 



/FILL BUFFER WITH PATTERN, 



/EXIT, 



/ROUTINE TO GET CHARACTER FROM KEYBOARD, 



GKBCRI 



T3T 

TSTB 

BPL 

MOVB 

MOVB 

MOVB 

JSR 

RTS 



*TKB 

PTKS 

,«4 

PTKB,CRBUF 

CRBUF,C3)+ 

CRBUP.X0 

X7,LSPCH 

X7 



/CLEAR DONE, 

/WAIT FOR DONE FLAG, 

/CHARACTER TO CRBUF, 
/CHARACTER TO LINE BUFFER, 

/ECHO CHARACTER, 



b hAIN 8 


MACYtl 


I7C6ST) 


47»NOV 


0IKUE 


mm m 


2NPUT*0UTPUT LQ 


1713 








ITS* 




mmm 




17*7 




177777 




1118 


B0SU4 


011767 


003136 


nss 


0SS1SI 


000167 


174466 


1760 








ITU 


001136 


00@ii0 




17&2 


001160 


003206 




ins 


S331I2 


001710 




1764 


003164 


003174 




1763 








1766 








1767 


S03166 


011767 


003202 


1763 


003174 


003777 


174010 


1769 


30520E? 


104012 




1770 


003202 


104003 




ITTl 


003204 


104012 




1772 








1773 


005206 


000001 




1774 


005210 


005236 




1773 


005212 


001750 




1776 


003214 


003224 




1777 








1778 








1779 


003216 


012767 


005232 


1780 


005224 


005777 


173762 


1781 


005230 


104012 




1782 


005232 


104003 




1783 


005234 


104012 




1784 








1781 


005236 


000002 




1786 


005240 


003266 




1787 


005242 


001750 




1788 


005244 


003254 




1789 








1790 








1791 


005246 


012767 


005262 


1792 


005254 


005777 


17373a 


1793 


005260 


104012 




1794 


005262 


104003 




1795 


005264 


104012 




1796 








1797 


005266 


000003 




1798 


005270 


005316 




1799 


005272 


001750 




1300 


00S274 


005304 




1801 








1802 








1803 


005276 


012767 


005312 


1804 


005304 


005777 


17370b 


1805 


005310 


104012 




1806 


005312 


10^003 




1807 


005314 


104012 




1308 









S4SI6 PA@g 3§ 



174061 PRG0S 



.•BTTU PR8§ * INPUT«OUTPUT LOGIC TMTI 

1S0 

MOV #P0T0,K8TART 

JMP IR8ET 



[**«* 
P0T0I 



[ADBftilS OF 1ST RQUTSNI TO KlTART a 
[80 SET STARTED^ 



172610 



172530 



Jftftft* 
[TEST 



P0AAI 
P0AEI 



Jftftft* 
P0T11 



[TEST 



P0SAI 
P0BE! 



P0T2S 



| ft*** 
ITEST 



} fr*ft* 

P0T3I 



J **** 
[TEST 

P0DAI 

P0DEI 

| & a* ft 





PBT1 
1000. 
P0AA 

ABILITY 
MOV 
T8T 
SCOPE 
ERROR 
SCOPE 
ftftftftftftftfti 
1 

P0T2 
1000, 
P0BA 

*ft**ftftftft 

ABILITY 
MOV 
T3T 
SCOPE 
ERROR 
SCOPE 
as****** 
2 

P0T3 
1000, 
P0CA 

ABILITY 
MOV 
T8T 
SCOPE 
ERROR 
SCOPE 

******** 
3 

P0T4 
1000, 
P0DA 

*****#** 
ABILITY 
MOV 
TST 
SCOPE 
ERROR 
SCOPE 



I PRG0 TEST ROUTINE i a 

IADDRE88 OF NEXT ROUTINE a 

ITEST ITERATION COUNT • 

ISCOPE ENTRY POINT a 

REFERENCE THE KEYBOARD/READER STATUS WORD (TKS) 



#P0AE,MACHIR 
#TK8 



[SET UP MACHINE ERROR TRAP, 

PREFERENCE CODER STATUS WORD* 

[SCOPE 

[ERROR, TRAPPED WHEN REFERENCING RIAf>gR 9 

[STATUS WORD £TSCS5 B 

[ PRS0 TEST ROUTINE 1 * 

[ADDRESS OF NO? ROUTINE • 

[TEST ITERATION COUNT • 

[SCOPE ENTRY POINT a 

TO REFERENCE THE KEYBOARD/READER BUFFER (TKB3 . 
*P0BE,MACHER [SET UP MACHINE ERROR TRAP 
#TKB [REFERENCE READER BUFFER, 

[SCOPE 

[ERROR, TRAPPED WHEN REFERENCING 

[READER BUFFER 9 CTKBJ , 

[ PRG0 TEST ROUTINE 2 
[ADDRESS OF NEXT ROUTINE 
[TEST ITERATION COUNT 
[SCOPE ENTRY POINT 

It***** ******* #*$tit1i&1l*1tiiii%*tt *$&$*%$#&*$$*&&* tt&&tii$s&%$%&1t$%# 

TO REFERENCE PUNCH/PRINTER STATUS WORD (7PS) 9 
#P0CE,MACHER [SETUP MACHINE ERROR TRAP, 
0TPS [REFERENCE PUNCH/PRINTER STATUS WORD* 

[SCOPE 

[ERROR, TRAPPED WHEN REFERENCING 
[PUNCH/PRINTER STATUS WORD CTP8) 9 

*************** **************$Z*1,**#*fttiti****&*****&*1il!l1i**#$ 

[ PRG0 TEST ROUTINE 3 * 

[ADDRESS OF NEXT ROUTINE * 

[TEST ITERATION COUNT • 

[SCOPE ENTRY POINT * 

************************************* ii$l***1i®>li&**1)*<g,®*<t!&**iltoiit 

TO REFERENCE PUNCH/PRINTER BUFFER CTPB) , 
#P0DE,MACHER [SETUP MACHINE ERROR TRAP, 
#TPB [REFERENCE PUNCH/PRINTER BUFFER 9 

[SCOPE 

[ERROR, TRAPPED WHEN REFERENCING 
[PUNCH/PRINTER SUFFER* CTPS) , 



************************* ***$**************<&*%****tl1l********* ****%&& 
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809 
810 
811 



819 

820 
821 
S22 
823 
624 
825 
826 
827 
828 
829 
330 
831 
832 
833 
834 
835 
836 
837 
838 
839 
840 
341 
842 
843 
844 
845 
846 
847 
348 
849 
850 
351 
352 
853 
854 
855 
356 
857 
858 
859 
860 
1861 
1362 



005316 
005320 
005322 
005324 



005326 
005334 
005342 
005350 
005352 
005354 
005356 
005364 
005372 
005374 
005376 

005400 
005402 
005404 
005406 



005410 
005416 
005424 
005426 
005434 
005436 
005440 

005442 
003444 
005446 

005430 



003452 
005454 
005456 
003462 
005464 
005470 
003472 
005474 



005502 

005504 



000004 
005400 
001750 
005334 



012767 
052777 
032777 

001002 
104003 
104012 
042777 
032777 
001401 
104003 
104012 

000005 
003442 
000144 
005416 



012767 
052777 
104011 
032777 

001401 
104003 
104012 



000340 
000100 



172442 
173646 
173640 



173624 
173616 



000340 
000100 



003476 
000024 
005454 



04022 
04023 
005277 173526 
04400 
03777 173S20 



005476 000007 
005530 
001750 

005316 



J**** 
ITEST 



172360 
173564 



3100 173554 



P0ECI 
f ftftftft 
P0T5I 



[TEST 



P0T6I 



[ftftft* 
ITEST 



P0T5 
1000 
P0EA 

ABILITY 
MOV 
BIS 
BIT 
BNE 
ERROR 
SCOPE 
BIC 
BIT 
BEQ 
ERROR 
SCOPE 

* A * A * ft ft ft ft 

5 

P0T6 
100, 
P0FA 

ABILITY 
MOV 
BIS 

SRESET 
BIT 
BEQ 
ERROR 
SCOPE 

ft * ft* * ft ft * * 

6 

P0T7 

20, 

P0GA 

********* 



I PRG0 TEST ROUTINE 4 * 

[ADDRESS OF NEXT ROUTINE a 

ITEST ITERATION COUNT * 

ISCOPE ENTRY POINT a 

*ft**«*ft*ftftftft*ftftft***ftft*ftftft*ftftftftftftaftftftft*ftftaft*ftftftftftfta*fta*ftft*ft* 

TO SET AND CLEAR READER/KYBD IE BIT* 
#PRTY7,P3W [SET PRIORITY 7 9 
*BIT6,#TKS [SET ID BIT IN TKS, 
#BIT6,PTKS [CHECK ID BIT IN TKS 
P0EB [BRANCH IF ID BIT IS SET, 

[ERROR 1 ID BIT NOT SET, 



«**&!****$&******* 



*BIT6,#TKS [CLEAR ID BIT IN TKS 

#BIT6,#TKS [CHECK ID BIT IN TKS B 

P0EC [BRANCH IF ID BIT IS CLEARED, 

[ERROR, ID BIT FAILED TO CLEAR, 

ISCOPE 

ft********************************************* 

| PRG0 TEST ROUTINE 5 * 

IADDRE8S OF NEXT ROUTINE * 

ITEST ITERATION COUNT * 

ISCOPE ENTRY POINT * 

********************************************&****<li*****$t1l** 

TO CLEAR ID BIT WITH RESET INSTRUCTIONS 
0PRTY7,PSW [SET PRIORITY 7 9 
*BIT6,#TKS [SET ID BIT IN TKS 

[RESET 
#BIT6,PTKS ITEST ID BIT. 
, + 4 [BRANCH IF ID BIT IS CLEAR B 

|ERROR a RESET FAILED TO CLEAR ID BIT, 
ISCOPE 
*********************************************%************* 
I PRG0 TEST ROUTINE 6 ft 

[ADDRESS OF NEXT ROUTINE a 

ITEST ITERATION COUNT * 

ISCOPE ENTRY POINT * 

ftftftftftAftftftftftftftftftftftft«ftftftftftftftftftftftftftftftftftftftftftft^ftftft^ftftft^A$ftAA«rA«iA 



THAT READER DONE BIT SETS SOMETIME AFTER RDR ENABLE 9 
CHKASR 



RESET2 

INC 

DELAYX 

TSTB 

BMI 

ERROR 

SCOPE 



#TKS 

9*4 



[ENABLE READER, 

[WAIT, 

[CHECK FOR DONE 

[BRANCH IF DONE BIT SET, 

[DONE NOT SET SOMETIME AFTER RDR 

ISCOPE 



ENB 9 



003306 104022 



f***************************************1i*l!*****&$i*$<ilt1l$,1iti!*&*tl**1iii*ftt#*$i*1s 

P0T7I 7 I PRG0 TEST ROUTINE 7 • 

P0T10 [ADDRESS OF NEXT ROUTINE ft 

1000, ITEST ITERATION COUNT a 

P0HA ISCOPE ENTRY POINT * 

I** ********* ****************************®**%*&&**$ti!*®*$**®ti®*$i$&&* $*%%**% 

ITEST THAT DONE BIT READS RELIABLY 9 
CHKASR 
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1865 


00531® 


104023 




1864 


003512 


004767 


174646 


|863 


001316 


10377? 


173466 


1866 


003322 


100401 




186? 


005314 


104003 




1868 


005326 


104i}2 




1869 








1870 


005530 


000010 




1871 


005512 


005564 




1872 


00533a 


000024 




1873 


005516 


005344 




U7a 








1875 








1876 


005540 


104022 




1877 


005542 


104023 




1878 


005544 


004767 


174614 


1879 


005510 


104011 




1880 


005552 


103777 


173432 


1881 


005536 


100001 




1882 


005560 


104003 




1883 


005562 


104012 




188a 








1885 


00536a 


000011 




1386 


005566 


003622 




1887 


005570 


000024 




1888 


005572 


005600 




1889 








1890 








1891 


005374 


104022 




1892 


005576 


104023 




1893 


005600 


004767 


174560 


189a 


005604 


105777 


173402 


1895 


005610 


105777 


173374 


1896 


003614 


100001 




189? 


005616 


104003 




1898 


005620 


104012 




1899 








1900 


005622 


000012 




1901 


00562a 


00566a 




1902 


005626 


000024 




1903 


005630 


005634 




1904 








1905 








1906 


003632 


104022 




1907 


00563a 


104023 




1908 


005636 


005277 


173346 



RE8ET2 

JSR S7,AREAD 

TSTB «»TK8 

8M2 8 *4 

ERROR 

scope 



{ENABLE RIADI8 e 89HI §&gft *M!N DON! §tT 8 

{test for done 

{branch if don! found sets 

{error, done sit not found sit 8 

{scope 



H***®*a*«*«*a»**a*«*«*a«6*ft*ti*****«ft*ftftftftftftftft**ft***»*** 
P0T10I 10 { PRGB TEST ROUTINE $i 

P0T11 {ADDRESS OF NEXT ROUTXNE 

29, {TEST ZTIRATION COUNT 

P0XA {SCOPE ENTRY POINT 

I ****************************** ******* ft ********************************** 
{TEST THAT RESET CUIARI DONE BIT 

CHKASR 



RESET! 

J9R 

3RE3ET 

TSTB 

BPL 

ERROR 

SCOPE 



#TK8 
8 *4 



P0XAS J3R X7|AREAD {ENABLE READER, COME BACK WHIN DON! KT, 

{ISSUE RESET, 
{TEST FOR DONE BIT 
{BRANCH IF DONE BIT RESET* 
{ERROR, RESET FAILED TO CLEAR DONI 9 
{SCOPE 

J*********************************************************************** 

P0T11I 11 { PRG0 TEST ROUTINE II 

P0T12 {ADORESS OF NEXT ROUTINE 

20, {TEST ITERATION COUNT 

P0JA {SCOPE ENTRY POINT 

{ft*********************************************************!*************: 

{TEST THAT REFERENCING READER DATA BUFFER CLEARS DONE 
CHKASR 

P0JAI JSR X7,AREAD {ENABLE READER, RETURN WHEN DONE SET* 

{REFERENCE READ BUFFER, 
{TEST FOR DONE BIT 
{BRANCH IF DONE NOT SET, 
{REFERENCE TO BUFFER DID NOT RESET DONE, 
{SCOPE 

{ftft*ft*«ft**ft**ftti*****ft*&**ft&ft**ft*ftaftft*ftft*****ftft**ftft*****ft&*****ftftftftft&*&a* 

P0T12I 12 { PRB0 TEST ROUTINE 12 

P0T13 {ADDRESS OF NEXT ROUTINE 

20. {TEST ITERATION COUNT 

P0KA {SCOPE ENTRY POINT 

{**ft*ftftft***ft«**ft«ft«r«*ft*ft***ft**ft*ft**ft«***ft**ft***ftft«rftft**^«****«i«r*******^*«* 

{CHECK THAT BUSY SETS SOMETIME BEFORE DONE SETS, 

CHKASR 
P0KAI RESET2 

INC ?TKS {ENABLE READER, 



RE8ET2 




JSR 


X7,AREAD 


TSTB 


#TKB 


TSTB 


#TKS 


BPL 


,*4 


ERROR 




SCOPE 





;:?lfllt ; %. 
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P0KCS 



1909 


005642 


032777 


004000 173340 


1910 


005650 


001004 




1911 


003652 


105777 


173332 


1912 


005656 


100371 




1913 


003660 


104003 




1914 


005662 


104012 




1915 








1916 


005664 


000013 




1917 


005666 


005732 




1918 


005670 


00002a 




1919 


005672 


003676 




1920 








1921 








1922 


005674 


104022 




1923 


005676 


104023 




1924 


005700 


004767 


174460 


1925 


005704 


005277 


173300 


1926 


005710 


032777 


004000 173272 


1927 


005716 


00177a 




1928 


005720 


105777 


173264 


1929 


00572a 


100001 




1930 


005726 


104003 




1931 


005730 


104012 




1932 








1933 


005732 


000014 




1934 


00373a 


006006 




1935 


005736 


001730 




1936 


005740 


005760 




1937 








1933 








1939 


003742 


104022 




1940 


005744 


104023 




1941 


005746 


004767 


174412 


1942 


003752 


117767 


173234 173403 


1943 


003760 


117767 


173226 173376 


1944 


003766 


126767 


173372 173371 


1945 


003774 


001403 




1946 


003776 


016700 


173362 


1947 


006002 


000000 




1948 


006004 


104012 




1949 








1950 


006006 


000015 




1931 


006010 


006056 




1952 


006012 


001730 




1953 


006014 


006032 




1934 








1955 








1956 








1957 


006016 


104022 




1958 


006020 


104006 




1939 


006022 


006054 




1960 


006024 


104023 




1961 


006026 


004767 


174332 


1962 


006032 


003077 


173152 



BIT 


#BITU,#TKS 


{BUSY SET? 


BNE 


P0KC 


{BR IF YES, 


TSTB 


9TK8 


{NO, DONE SET? 


BPL 


P0KB 


{BR IF NOT, 


ERROR 




{BUSY BIT FAILED TO SET BEFORE DONE SET, 


SCOPE 







{ft^*ft&***aft****ftfta«*ft*a***&ft*ft******ftft**ft**ft*ftaa&**ft***&*#**a&**a#*****fc 

P0T13I 13 { PRG0 TEST ROUTINE 13 * 

P0T14 {ADDRESS OF NEXT ROUTINE * 

20. {TEST ITERATION COUNT * 

P0LA {SCOPE ENTRY POINT * 

J***ft*ftftft*ft******ft****ft*ftft*ft**ft***ft**&ft******ft*ft****ftft**ftAft*a**&a*a*a***a 

{TEST THAT DONE IS RESET BY START BIT (WHEN BUSY BECOMES SET), 



P0LAI 



CHKASR 




JSR 


X7,AREAD 


INC 


PTKS 


BIT 


•BXTll,#TK8 


BEQ 


,•6 


TSTB 


PTKS 


BPL 


.*4 


ERROR 




SCOPE 





{ENABLE READER, RETURN WHEN DONE SET, 

{ENABLE READER, 

{WAIT FOR BUSY TO SET, 



{TEST FOR DONE BIT, 

{BRANCH IF DONE NOT SET, 

{ERROR, START BIT FAILED TO RESET DONE, 

{SCOPE 

|*ft*&ft****ft**ft*«**ftft**ftftftftftft******ft*****ft***ft******ft**ftft*S****a**ft**l&&*** 

P0T14I 14 { PRG0 TEST ROUTINE 14 * 

P0T15 {ADDRESS OF NEXT ROUTINE * 

1000, {TEST ITERATION COUNT * 

P0MA {SCOPE ENTRY POINT * 

{a*********************************************************************** 
{TEST THAT READ BUFFER CAN BE READ RELIABLY, 

CHKASR 

RESET2 

JSR X7,AREAD 

MOVB 0TKB,CRBUF*1 
P0MAI MOVB PTKB, CRBUF 

CMPB CRBUF, CRBUP+i 

BEQ P0MB 

MOV CRBUF, %0 

HALT 
P0MBI SCOPE 

{ft*********************************************************************** 
P0T15I 15 { PRB0 TEST ROUTINE 13 * 

P0T16 {ADDRESS OF NEXT ROUTINE * 

1000, {TEST ITERATION COUNT & 

P0NA {SCOPE ENTRY POINT * 

{ft***************** ****************************************************** 
{TEST THAT READER DONE BIT IS ABLE TO CAUSE INTERRUPT, IF THE INTERRUPT IS 
{SERVICEDi IT WILL HAVE OCURRED AT CORRECT VECTOR, 

CHKASR 

STRDRV {SET UP READER VECTOR TO P0NC 

P0NC 

RESET2 

JSR PC f AREAD {ENABLE READER, RETURN WHEN DONE SEY 8 
P0NAI CLR STK8 {DISABLE READER INTERRUPTS 



{ENABLE READER, RETURN WHEN DONE SET, 

{BUFFER CONTENTS TO CRBUF*! 

{BUFFER CONTENTS TO CRBUF 

{COMPARE CONTENTS OF CRBUF AND CRBUF*i 

{BRANCH IF SAME, 

{NOT SAME, ERROR 8 HALT WITH 1ST READ CHAR 

{IN DATA BYTES LEFT, SUBSEQUENT READ IN DATA IYTH RIGHT 



8 HAfN g 
91KUI 

if&3 
1964 
1963 
IW» 

196? 

1968 

196f 

1970 
1971 

i??a 

1973 

1974 
1975 
1976 
19T7 

if?a 

1979 

i960 
1961 
198| 
1983 
1984 
1985 
1986 
1987 
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FAB1 41 



H6036 
ii&S4a 

S06010 
006032 
396034 

S06056 
906960 
006062 
006064 



006066 
006070 
006072 
006074 
006076 
006102 
006106 
006114 
006122 
006124 
006130 
006132 



001067 
011777 
000240 
104103 

104011 

000016 
006136 
0017S0 
006102 



104022 
104006 
006132 
104023 
004767 
003077 
016767 
052777 
000240 
005077 
104012 
104001 



171714 

000100 171140 



CUR 

§18 
NOP 
AY20EI ERROR 
?0NCf SCOPS 



P8W 
8SXT6,#TK§ 



I* 



/enable reader, return whin DONE sit 8 

/ENABLE READER INTERRUPT, 



/ERROR. READER FAILED TO INTERRUPT 
/HERE IF INTERRUPT OCCURS* 



174262 
173102 

173110 171662 
000100 173066 

173060 



FST161 16 

P0T17 
1000, 
PSOA 
/«a«*ft8*ft«*ft««ftj 
ITI8T THAT DONE 
/PRIORITY LEVEL 
CHKASR 
8TRDRV 
P0OE 
RS8ET2 
JSR 
P0OAJ CLR 
MOV 
BIS 
NOP 
CLR 
SCOPE 
P0OEI ERROR 



/ PRO0 TEST ROUTINE 16 
/ ADDRESS OP NEXT ROUTINE 
/TEST ITERATION COUNT 
/SCOPE ENTRY POINT 



DOES NOT CAUSE 
A3 THE READERS 



%7,AREAD 
0TK8 

TKLVL.PSW 
#BIT6,*TK8 



fTKS 



INTERRUPT WITH PROCESSOR AT SANE 
INTERRUPT REQUEST LEVEL, 

ISET READER VECTOR TO PSOE, 



IENA8LE READER, RETURN WHEN DONE SET, 

/DISABLE READER INTERRUPTS, 

/SET PROCESSOR TO SAME PRIORITY AS READER'S, 

/ENABLE READER INTERRUPTS, 

I NO OP, 

I OK IP NO INTERRUPT OCCURS, 

ISCOPE 

/ERROR, READER ERRONEOUSLY INTERRUPTED 



»MAIN e 
DZKLAE 

1988 
1989 
1990 
1991 
1992 
1993 

199a 

1995 
1996 
1997 
1998 
1999 
2000 
2001 
2002 
2003 
2004 
2005 
2006 
2007 
2008 
2009 
2010 
2011 
2012 
2013 
2014 
2015 
2016 
2017 
2018 
2019 
2020 
2021 
2022 
2023 
2024 
2025 
2026 
2027 
2028 
2029 
2030 
2031 
2032 
2033 
2034 
2035 
2036 
2037 
2038 
2039 
2040 
2041 
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006134 104012 



006136 
006140 
006142 
006144 



006146 
006150 
006152 
006154 
006156 
006162 
006166 
006174 
006202 
006210 
006212 

006214 
006220 

006222 
006224 
006226 

006230 



006232 
006234 
006236 
006242 
006244 
006246 
006252 
006260 
006264 
006266 
006270 
006274 
006276 
006304 
006310 
006312 
006314 
006316 

006320 
006324 



00001? 
006222 
001750 
006162 



104022 
104006 
006214 
104023 
004767 
005077 
016767 
162767 
052777 
000240 
104003 

005077 
104012 



006326 
001750 

006242 



104022 
104023 
004767 
104006 
006276 
005077 
052777 
005067 
000240 
104003 
005077 
104012 
012777 
012716 
000002 
000240 
000301 
104003 

005077 
104012 



174202 
173022 
173030 



171602 
171574 

173000 



8TRDRV 




P0PB 




RESET2 




JSR 


X7,AREAD 


CLR 


#TK3 


MOV 


TKLVL,PSW 


SUB 


040, PSW 


BIS 


#BIT6,*TKS 


NOP 




ERROR 




CLR 


#TK3 


SCOPE 





172736 

000100 172730 

171512 



172714 



006316 
006312 



172664 



172714 P0QCI 



P0QDI 



/WITH PROCESSOR AT SAME PRIORITY 
/LEVEL AS THE READER, OR THE READER 
SCOPE /IS AT HIGHER PRIORITY THAN SPECIFIED AT TKLVL, 

P0T17I 17 / PRG0 TEST ROUTINE 17 

P0T20 /ADORESS OF NEXT ROUTINE 

1000, /TEST ITERATION COUNT 

P0PA /SCOPE ENTRY POINT 

/TEST THAT DONE CAUSES INTERRUPT WITH PROCESSOR AT PRIORITY ONE LEVEL LOWER 
JTHAN THE READER'S INTERRUPT PRIORITY LEVEL. 
CHKASR 

ISET READER INTERRUPT SERVICE TO 

/P0PB, 

/ENABLE READER, RETURN WHEN DONE SET, 
/DISABLE READER INTERRUPTS 
/SET PROCESSOR PRIORITY ONE LEVEL LOWER 
/THAN READER, (SPECIFIED AT TKLVL), 
/ENABLE READER INTERRUPTS, 

/FAILED TO INTERRUPT WITH PC AT PRIORITY ONE LEVEL LOWER 
/HERE IF INTERRUPT OCCURS, OK, POP STACK TWICE 
P0PBI CLR #TK3 /DISABLE READER INTERRUPTS 

/SCOPE 

/ft*ftftftftftttftft**«******ft*ftftft**»«^*ftft*****ftft*ft*ft**ft^ 

P0T20! 20 / PRG0 TEST ROUTINE 20 * 

P0T21 /ADDRESS OF NEXT ROUTINE * 

1000. /TEST ITERATION COUNT * 

P0OA /SCOPE ENTRY POINT • 

/ft*ft«ftaftftftft*ftft#ftft**ftft*ftft*ft**ft***ftftft****o***^ 

/TEST THAT DONE DOES NOT REINTERRUPT AFTER RTI WHEN DONE IS NOT CLEARED. 
CHKASR 

/ENABLE READER, RETURN WHEN DONE SET, 

/SET READER INTERRUPT SERVICE 

/TO P0QC, 

/DISABLE READER INTERRUPTS, 

/ENABLE READER INTERRUPTS, 

/SET PRIORITY 0, 

/ERROR1 FAILED TO INTERRUPT 

/DISABLE READER INTERRUPTS, 

/SCOPE 

/CHAN8E INTERRUPT VECTOR TO PBQE 

/RETURN FROM INTERRUPT 

/OK IF NO REINTERRUPT OCCURS, 
/DONE REINTERRUPTED AFTER 
/RTI WITH DONE BIT LEFT ON, 
/DISABLE READER INTERRUPTS, 
/SCOPE, 
/*«»*&&**$&«*&*«£«$ &«rft*ft*!**a*ft ********* ft* *«* * ***«««***««*«***«« *««»«*« A« *ft 



P0QEI 



RESET2 




JSR 


X7,AREAD 


STRDRV 




P0QC 




CLR 


*TKS 


BIS 


*BIT6,#TK3 


CLR 


P3W 


NOP 




ERROR 




CLR 


?TKS 


SCOPE 




MOV 


#P0QE,#TKVTR 


MOV 


*P0QD,#%6 


RTI 




NOP 




BR 


■ ♦4 


ERROR 




CLR 


#TK8 


SCOPE 
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30«3 
30«3 

ssaa 

3045 
1046 
3047 

3048 

2030 
2051 
3033 
3033 

2355 
3056 
3037 
3033 
20S9 
3060 
3061 
3063 
3063 
3064 
3065 
3066 
2067 
206S 
3069 
3070 
3071 
3072 
3073 
3074 
2075 
3076 
2077 
3078 
3079 
2090 
2081 
3062 
3083 
3034 
3085 
3066 
3087 
3088 
2069 
3090 
2091 
3092 
3093 
2094 
2095 



006336 000031 

006330 006410 

006333 001730 

006334 006344 



006336 
006344 
006333 
006360 
006363 
006364 
006366 
006374 
006403 
006404 
006406 

006410 
006412 
006414 
006416 



006430 
006436 
006434 
006436 
006444 
006446 
006430 

006452 
006454 
006436 
006460 



006462 
006470 
006476 
006500 
006502 
006504 
006312 
006530 
006332 
006534 

006536 

006530 
006333 
006534 



013767 000340 

033777 000100 

033777 000100 

001003 

104003 

104013 

043777 000100 

032777 000100 

001401 

104003 

104012 

000033 
006453 
000034 
006436 



012767 000340 
052777 000100 



171432 
172642 
172634 



173620 
173613 



171330 
173560 



1040U 
033777 
001401 
104003 
104012 

000023 
006536 
001730 

006462 



052777 
032777 

001002 

104003 

104012 

042777 000004 

032777 

001401 

104003 

104012 

000024 
006562 
000024 

006536 



0100 172550 



172524 
172316 



173302 
17247a 



P§T2U 21 I PRge TUT 80UTINI §i a 

P0T21 ZADORISS OF NEXT ROUTINE * 

1000» /TEST ITERATION COUNT ® 

P8RA /SCOPf ENTRY POINT * 

/TEST ABILITY TB SET AND CLEAR PUNCH ID BIT 



P0RAJ 



MOV 
SIS 
SIT 

BNE 

ERROR 

SCOPE 

BIC 

BIT 

BEQ 

ERROR 

SCOPE 



#PRTY7#PSW /SET PRIORITY 7 S 

#0IT6,#TPa MET PUNCH ID BIT 8 

#BIT&,#TPS SCHICK PUNCH ID BIT 9 

«*6 /BRANCH IP PUNCH ID BIT IS SIT 9 

/ERROR!, PUNCH ID BIT DID NOT MT, 



P0T22 



/ft**** 
/TEST 



P0T33I 



/TEST 

P0TAI 



#0176, #?ps /clear punch id »xt. 

#sst6 ( #tps /check punch id bit e 

9 *4 /branch ip punch id bit is clear 

?£rr0r2 9 punch id bit failed to clear 9 

/scope 

************************ *ii***1i**1l1l*1l$*il#«1t1li,4a**ti#1l1iaa**4,t,1 t *«1l1l1>l!lltl 

23 * PRG0 TEST ROUTINE 23 

P0T23 /ADDRESS OP NOT ROUTINE 

30. /TEIT ITERATION COUNT 

P08A /SCOPE ENTRY POINT 

ABILITY TO CLEAR PUNCH ID BIT WITH RESET INSTRUCTION 

MOV #PRTY7,PSW /SET PRIORITY 7 9 

118 #BIT6,f>TPS /SET PUNCH ID BIT, 
3RESET /RESET 

BIT #8IT6,#TPS /CHECK PUNCH ID BIT 9 

BEQ e + 4 /BRANCH IP PUNCH ID SIT IS CLEAR 9 

ERROR ZERR0R 9 RESET FAILED TO CLEAR PUNCH ID 8IY e 

SCOPE /SCOPE 

33 / PRC0 TEST ROUTINE 13 a 

P0T34 /ADDRESS OF NE8T ROUTINE a 

1000 s /TEST ITERATION COUNT a 

PBTA /SCOPE ENTRY POINT * 

ABILITY TO SET AND CLEAR THE PUNCH MAINTENANCE BIT 



BIS 

BIT 

BNE 

ERROR 

SCOPE 

BIC 

BIT 

BEQ 

ERROR 

SCOPE 



*BIT3,*TPS /SET MAINTANCE BIT 9 

#BIT2,#TPS /CHECK MAINTENANCE BIT 

**6 /BRANCH IF MAINTENANCE BIT SET. 

/ERRORl e MAINTENANCE BIT FAILED TO SIT 9 



*BIT2,0TP3 /CLEAR MAINTENANCE BIT, 

#BIT2,#TP8 /CHECK MAINTENANCE BIT 

9 +4 /BRANCH IF MAINTENANCE BIT IS CLEAR, 

/ERR0R2, MAINTENANCE BIT FAILED TO CLEAR 9 

/SCOPE 

/*ft*SA*S4ft*ft»******»ftft**ft*ft*A**a*****ft*4*A«,ftaft**ftS*ftSAft*^***!»aft*^a«r***«!it* 

P0T24S 24 / PRG0 TEST ROUTINE 34 ft 

P0T25 /ADDRESS OF NEXT ROUTINE ft 

30. /TEST ITERATION COUNT * 

P0UA /SCOPE ENTRY POINT * 



.MAIN, 


MACYli 


37(657) 


17*NOV 


DZKLAE 


PRG0 - 


INPUT«0UTPUT LO 


3096 








2097 


006536 


052777 


000004 


2098 


006544 


104011 




2099 


006546 


032777 


000004 


2100 


006554 


001401 




3101 


006556 


104003 




2102 


006360 


104013 




2103 








2104 


006562 


000025 




2105 


006564 


006604 




2106 


006566 


001750 




2107 


006570 


006572 




2108 








2109 








3110 


006572 


105777 


172416 


3111 


006576 


100401 




3113 


006600 


104003 




3113 


006602 


104012 




3114 








2115 


006604 


000026 




2116 


006606' 


006634 




3117 


006610 


000034 




3118 


006612 


006614 




3119 








3130 








2131 


006614 


104023 




3133 


006616 


003077 


172374 


2123 


006633 


103777 


172366 


2124 


006636 


100001 




2125 


006630 


104003 




2126 


006633 


104012 




2127 








2128 


006634 


000037 




3139 


006636 


006670 




3130 


006640 


000034 




3131 


006643 


006644 




3133 








3133 








3134 


006644 


104033 




3133 


006646 


016700 


173344 


3136 


006653 


003300 




3137 


006654 


103010 




3138 


006656 


105777 


173333 


3139 


006663 


100401 




3140 


006664 


104003 




31«1 


006666 


104012 




3^3 








3143 


006670 


000030 




3144 


006673 


006733 




3145 


006674 


000034 




2146 


006676 


006700 




2147 








3148 








3149 


006700 


104033 
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/TEST THAT RESET INSTRUCTION CLEARS THE MAINTENANCE BIT. 



172450 P0UAI 



BIS 

SRE3ET 

BIT 

BEQ 

ERROR 

SCOPE 



*BIT3,#TPS 



#BIT3,#TPS 
« + 4 



/SET MAINTENANCE BIT, 

/ISSUE RESET 

/CHECK MAINTENANCE BIT 

/BRANCH IF MAINTENANCE BIT CLEAR, 

/ERROR, RESET FAILED TO CLEAR 

/THE MAINTENANCE BIT, SCOPE. 

P0T25! 33 / PRG0 TEST ROUTINE 35 ft 

P0T36 /ADDRESS OF NEXT ROUTINE a 

1000. /TEST ITERATION COUNT * 

P0VA /SCOPE ENTRY POINT a 

/ftftA«»ttftA«ftft«*A*ft«»««««i»il|«ftft«A«ft*ft**«,«A*Aft«ftA«ft**ft#<>«*«A^ft«A««««a««ft«ft«AA 

/TEST THAT RESET SETS THE PUNCH READY BIT, AND THAT READY CAN BE READ RELIA8LY 8 
P0VAJ TSTB #TPS /CHECK PUNCH READY, 

BMI ,+4 /BRANCH IF PUNCH READY IS SET, 

ERROR /ERROR. RESET FAILED TO SET READY, OR FAILED TO READ 

SCOPE /SCOPE 

/ft*ftft*ft*ft*ftft«ftftftft*ftft*ft**«ft*ftft**ftftft**4^ftftft*ftftftft^ 

P0T368 36 / PRG0 TEST ROUTINE 36 a 

P0T37 /ADDRESS OF NEXT ROUTINE * 

30. /TEST ITERATION COUNT ft 

PBWA /SCOPE ENTRY POINT a 

/TEST THAT PUNCH READY RESETS BY LOADING PUNCH BUFFER. 
P0WAI RESETS 

CLR »TPB /LOAD PUNCH BUFFER 

TSTB MPS /CHECK PUNCH READY BIT, 

BPL 8 +4 /BR IF PUNCH READY IS CLEAR, 

ERROR /ERROR, BUFFER LOAD FAILED TO CLEAR READY, 

SCOPE /SCOPE 

P0T37I 37 / PRG0 TEST ROUTINE 37 « 

P0T30 /ADDRESS OF NEXT ROUTINE * 

30. /TEST ITERATION COUNT * 

P0XA /SCOPE ENTRY POINT * 

/ft********* *«ftftftft*ft«iMftftftft«*ftftftftft*ftftftftft*ftftft ft* ftftftft*ftft«fftftftftft«ft*&ft*ft'*ft*ft*ft«ft 

/TEST THAT BYTE LOAD OF PUNCH BUFFER +1 DOES NOT RESET READY, 
P0XAI RESETS 

TPB,X0 

X0 

*X0 /BYTE LOAD PUNCH BUFFER+t 

#TPS /CHECK PUNCH READY BIT 

,+4 /BRANCH IF PUNCH READY STILL SET. 

/ERROR, BYTE LOAD OF PUNCH 8UFFER+1 
/CLEARED READY, SCOPE 

/ASftftftAftAAftAAftSftft^AftftA^AAA^ftft^^ftAAAftAAftAftAAftAftftAift^ftftftAft^^ftftS&Sftft^fi^ftftftftft 

P0T30I 30 / PRG0 TEST ROUTINE 30 * 

P0T31 /ADDRESS OF NEXT ROUTINE $ 

30. /TEST ITERATION COUNT « 

P0YA /SCOPE ENTRY POINT * 

/TEST THAT PUNCH BECOMES READY SOMETIME AFTER BUFFER LOAD, 
P0YA9 RESETS 



MOV 

INC 

CLRB 

TSTB 

BMI 

ERROR 

SCOPE 
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2130 


006702 


00S077 


172310 


8151 


336706 


104410 




§131 


006710 


101777 


172100 


3193 


006714 


100401 




1134 


006716 


104003 




1135 


006720 


104012 




aiS6 








21S7 


006722 


000031 




§133 


006724 


006762 




2139 


006726 


001730 




1160 


006730 


006736 




2161 








2162 








2163 








2164 


006732 


104007 




2165 


006734 


006760 




2166 


006736 


003077 


172252 


2167 


006742 


003067 


171030 


2163 


006746 


052777 


000100 


2169 


006754 


000240 




2170 


006736 


104003 




2171 


006760 


104012 




2172 








2173 


006762 


000032 




2174 


006764 


007032 




2175 


006766 


001730 




2176 


006770 


006776 




2177 








2178 








2179 








2180 


006772 


104007 




2181 


006774 


007026 




2132 


006776 


016767 


172224 


2183 


007004 


005077 


172204 


2184 


007010 


052777 


000100 


2185 


007016 


000240 




2186 


007020 


005077 


172170 


2187 


007024 


104012 




2188 


007026 


104003 




2189 


007030 


000773 




2190 








2191 


007032 


000033 




2192 


007034 


007106 




2193 


007036 


001750 




2194 


007040 


007046 




2195 








2196 








2197 








2198 


007042 


104007 




2199 


007044 


007100 




2200 


007046 


005077 


172142 


2201 


007052 


016767 


172150 


2202 


007060 


162767 


000040 


2203 


007066 


052777 


000100 



CUR 


#?f»B 


DELAY* 




T8T8 


#TP8 


BMX 


9 *4 


ERROR 




SCOPE 





, .DAD PUNCH BUFFW, 

[WAIT, 

ICHECK PUNCH READY 8IT 8 

[BRANCH IF PUNCH READY IS §ET 8 

[READY NOT SIT SOMETIME AFTER SUFFER LOAD 

iseopi 

f *••••*•*•*•*** t *•*••* ****«*«***«i **«••**•*••«•••••**•*•••**•*•**•*• •*•*•' 

P0T318 31 i PR60 TEST ROUTINE 31 

P0Y32 [ADDRESS OF NEXT ROUTINE 

10008 [TEST ITERATION COUNT 

P02A [3C0PE ENTRY POINT 

I *•••••••***»*•*•••• ••*•**•*•*«(*•«•*•*****••**•*•**«•**•••*•«•««*»«#*••*• 

[TEST THAT PUNCH READY BIT CAN CAUSE AN INTERRUPT IF THE INTERRUPT 
113 SERVICED, IT WILL HAVE OCCURRED AT THE CORRECT VICTOR 



P0ZA1 



8TPCHV 




P0ZB 




CLR 


#TPS 


CLR 


PSW 


BIS 


#BIT6,&TPS 


NOP 




ERROR 




SCOPE 





ISET PUNCH INTERRUPT SERVICE 
HO P0ZB 

[DISABLE PUNCH INTERRUPTS 
ISET PRIORITY 0* 

IENABLE PUNCH INTERRUPTS,, 



170772 



170716 
170710 

172120 



[PUNCH READY FAILED TO CAUSE 
P0ZBI SCOPE [INTERRUPT. SCOPE 

I A****************************** •** »«•**•*•******•****«****•*•*«**«••»•* 

P0T321 32 i PRS0 TEST ROUTINE 32 

P0T33 [ADDRESS OF NEST ROUTINE 

1000. [TEST ITERATION COUNT 

P0AAA I8C0PE ENTRY POINT 

[TEST THAT PUNCH READY DOES NOT CAUSE AN INTERRUPT WITH PROCESSOR 
MT SAME PRIORITY LEVEL A3 THE PUNCH INTERRUPT REQUEST LEVEL. 

[SET PUNCH INTERRUPT SERVICE 
ITO P0AAE, 

ISET PROCESSOR TO SAME PRIORITY AS PUNCH* 
[DISABLE PUNCH INTERRUPTSs 
[ENABLE PUNCH INTERRUPT8 S 

[OK IF NO INTERRUPT OCCURS, 

[SCOPE 

[ERROR. PUNCH INTERRUPTED WITH PROCESSOR 

[SET TO SAVE PRIORITY AS THE PUNCH, 

P0T33! 33 [ PRG0 TEST ROUTINE 33 

P0T34 [ADDRESS OF NEXT ROUTINE 

1000. [TEST ITERATION COUNT 

P0BAA [SCOPE ENTRY POINT 

[TEST THAT THE PUNCH INTERRUPTS WITH PROCESSOR AT PRIORITY ONE LEVEL LOWER 

[THAN THE PUNCH PRIORITY, 

STPCHV [SET PUNCH INTERRUPT SERVICE 

P0BAC [TO P0BAC B 

P0BAAI CLR #TPS [DISABLE PUNCH INTERRUPTS 

MOV TPLVL,PSW [SET PROCESSOR PRIORITY ONE LEVEL 

SUB »40 t P8W [LOWER THAN PUNCH PRIORITY 

BIS #BIT6,0TPS [ENABLE PUNCH INTERRUPTS 





STPCHV 








P0AAE 






P0AAAJ 


MOV 


TPLVL 


PSW 




CLR 


eTPS 






BIS 


#BIT6 


#TPS 




NOP 






P0AABI 


CLR 
SCOPE 


#TP8 




P0AAEI 


ERROR 








BR 


P0AAB 
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2204 


007074 


000240 




2205 


007076 


104003 




2206 


007100 


005077 


172110 


2207 


007104 


104012 




2208 








2209 


007106 


000034 




2210 


007110 


007202 




2211 


007112 


001750 




2212 


007114 


007116 




2213 








2214 








2215 








2216 


007116 


104007 




2217 


007120 


007152 




2218 


007122 


005077 


172066 


2219 


007126 


005067 


170644 


2220 


007132 


052777 


000100 


2221 


007140 


000240 




2222 


007142 


104003 




2223 


007144 


005077 


172044 


2224 


007150 


104012 




2225 


007152 


012777 


007172 


2226 


007160 


012716 


007166 


2227 


007164 


000002 




2228 


007166 


000240 




2229 


007170 


000401 




2230 


007172 


104003 




2231 


007174 


005077 


172014 


2232 


007200 


104012 




2233 








2234 


007202 


000035 




2235 


007204 


007260 




2236 


007206 


001750 




2237 


007210 


007216 




2238 








2239 








2240 








2241 


007212 


104007 




2242 


007214 


007252 




2243 


007216 


012767 


000340 


2244 


007224 


005077 


171764 


2245 


007230 


052777 


000100 


2246 


007236 


005067 


170534 


2247 


007242 


012767 


000340 


2248 


007250 


104003 




2249 








2250 


007252 


00507*7 


171736 


2251 


007256 


104012 




2252 








2253 


007260 


000036 




2254 


007262 


007342 




2255 


007264 


000024 




2256 


007266 


007276 




2257 









170552 
171756 



170326 



NOP 

ERROR [ERROR, PUNCH FAILED TO INTERRUPT, 

P0BACI CLR #TPS [THE STOCK TWICE, DISABLE PUNCH INTERRUPT 

SCOPE [SCOPE 

I **************** **#&****i,i,*#i,i,i,ti,*i l i l $i l *i,* il i l **i, i , i , tlil # il #$%$®$* ilit #$*z t xz il i li ,i, 
P0T348 34 | PRG0 TEST ROUTINE 34 a 

P0T35 [ADORESS OF NEXT ROUTINE * 

1000. [TEST ITERATION COUNT * 

P0CAA [SCOPE ENTRY POINT a 

1 ********* i****************^*^^^**^^^^*^^^^*^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 
[TEST THAT PUNCH READY DOES NOT REINTERRUPT AFTER RTI WHEN READY 
[BIT MAS NOT BEEN RESET, 

[SET PUNCH INTERRUPT SERVICE TO 
[TO P0CAC, 

[DISABLE PUNCH INTERRUPTS 
[SET PROCESSOR PRIORITY TO 
[ENABLE PUNCH INTERRUPTS 

[ERROR 1. PUNCH FAILED TO INTERRUPT, 

[DISABLE PUNCH INTERRUPT* 

[SCOPE 

[HERE IF INTERRUPT OCCURS. CHANGE 

[PUNCH VECTOR TO P0CAE AND EXIT 

[INTERRUPT 

[OK IF NO REINTERRUPT OCCURS 

[ERR 2. PUNCH REINTERRUPTED AFTER 
[RTI WITH READY BIT LEFT ON 
[SCOPE 

l*****************************************^***^*^**^^^^^^*^^^^^^^^^^*^^^^ 

P0T33J 35 | PRG0 TEST ROUTINE 35 * 

P0T36 [ADDRESS OF NEXT ROUTINE * 

1000. [TEST ITERATION COUNT * 

P0DAA [SCOPE ENTRY POINT * 

t***************************************************^**^*,**,*^******^*^*^* 

[TEST THAT THE PUNCH INTERRUPTS IMMEDIATELY UPON LOWERING 
[PROCESSOR PRIORITY TO e 

[SET PUNCH INTERRUPT 

ITO P0DAC, 

ISET PROCESSOR PRIORITY TO 7 9 

[DISABLE PUNCH INTERRUPTS 

[ENABLE PUNCH INTERRUPTS 

[LOWER PROCESSOR PRIORITY TO B 

[RAISE PRIORITY TO 7. 

[ERROR, PUNCH FAILED TO INTERRUPT 

[IMMEDIATELY AFTER CP PRIORITY WAS SET TO 0. 

[DISABLE PUNCH INTERRUPTS 

[SCOPE 

P0T36I 36 | PRG0 TEST ROUTINE 36 * 

P0T37 [ADDRESS OF NEXT ROUTINE ft 

20. [TEST ITERATION COUNT a 

P0EAA [SCOPE ENTRY POINT * 

I a** ft*ft*ftft**ftftft*ftft*ft&*g*ftft *tt********** &&*aaaa«a**ai&a&$aaai&i&sra&*aft&ft&ftftftft 



P0CAA! 


STPCHV 
P0CAC 






CLR 


#TPS 




CLR 


PSW 




BIS 


0BIT6 # #TPS 




NOP 






ERROR 






CLR 


PTPS 




SCOPE 




P0CACI 


MOV 


#P0CAE,#TPVTR 




MOV 


#P0CAD,PX6 




RTI 




P0CAD1 


NOP 






BR 


P0CAF 


P0CAEI 


ERROR 




P0CAF1 


CLR 
SCOPE 


0TPS 



STPCHV 




P0DAC 




P0DAAI MOV 


#PRTY7,P3W 


CLR 


#TPS 


BIS 


#BIT6,*TPS 


CLR 


PSW 


MOV 


*PRTY7,PSW 


ERROR 




P0DACI CLR 


#TPS 


SCOPE 





.MAIN, 
D1KME 

2258 
2239 
2260 
2261 
2262 
2263 
2264 
2265 
2266 
2267 
2263 
2269 
2270 
2271 
2272 
2273 
2274 
2275 
2276 
2277 
2278 
2279 
2280 
2281 
2262 
2283 
2284 
2265 
2286 
2287 
2288 
2269 
2290 
2291 
2292 
2293 
2294 
2295 
2296 
2297 
2298 
2299 
2300 
2301 
2302 
2303 
2304 
2305 
2306 
2307 
2308 
2309 
2310 
2311 



MACYli 27(617} i?*NO¥«?S &4106 
PRG0 • INPUT*OUTPUT LOGIC TESTS 



007270 
007272 
007274 
007276 
007304 
007310 
007316 
007322 



007324 
007330 
007332 
007340 

007342 
007344 
007346 
007330 



007352 
007354 
007362 
007366 
007370 
007374 
007376 



007402 
007404 
007406 
007410 



007412 
007414 
007416 
007420 
007426 
007434 



104023 
104007 
007332 
012767 
005077 
052777 
005067 



005077 
104012 
012767 



007402 
000024 
007354 



104023 
052777 
003077 
104400 
105777 
100401 
104003 



007400 104012 



007472 
000024 
007416 



104007 
007466 
104023 
012767 
052777 
005077 



171664 

104003 



ITEST FOR CORRECT OPERATION OP THE HAST SNSTBUCTI0N 8 A WAIT INSTRUCTION 
118 PERFORMED WHILE WAITING FOR A PUNCH INTERRUPT* WHEN THE INTERRUPT 
IOCCUPSS, THE SERVICE ROUTINE CHANGES THE WAIT INSTRUCTION TO AN ERROR 
ICALL AND THEN EXIT! THE INTERRUPT WITH AN RTI 9 EXITING THI INTERRUPT 
ISHOULD RETURN CONTROL TO THE INSTRUCTION POLLOWINi THE WAIT INSTRUCTIONS 
IIP CONTROL 13 INSTEAD RETURNED TO THE SAME LOCATION WHERE THE WAIT 
^INSTRUCTION WAS LOCATED AN ERROR CALL WILL OCCUR, INDICATING A FAILURE 
IOF THE WAIT INSTRUCTION a 



000001 000016 P0EAAI 

171706 

000100 171676 

170434 

PBEABi 



177762 P0EAC8 



RESET! 




STPCHV 




P0EAC 




MOV 


#WAIT,P0EAB 


CLR 


#TP8 


BIS 


#SIT6,#TPS 


CLR 


PSW 


OPEN 




CLR 


#TPS 


SCOPE 




MOV 


TERROR, P0EAB 


RTI 





000004 171632 P0FAA1 
171630 

171614 



000340 
000100 
171556 



170350 
171560 



ISET PUNCH INTERRUPT SERVICE 

ITO P0EAC 9 

IMOVE WAIT INSTRUCTION TO P0EAS 

ILOAD PUNCH SUFFER (ENABLES PUNCH) 

ISNABLE PUNCH INTERRUPTS 

ISET PRIORITY 9 

ITHIS LOCATION CAN BE EITHER 

H WAIT INSTRUCTION OR AN ERROR CALL 9 

HP AN gRROR CALL IS EXECUTED, IT 

VINDICATES A FAILURE OF THE WAIT INSTRUCTION,, 

IDISABLE PUNCH INTERRUPTS 

ISCOPE 

/MOVE ERROR CALL TO P§EA8 e 

IEXIT INTERRUPT 9 

P0T37* 37 | PRG0 TEST ROUTINE 37 

P0T40 /ADDRESS OF NEXT ROUTINE 

20. ITEST ITERATION COUNT 

P0FAA ISCOPE ENTRY POINT 

ITE3T THAT LOADING THE PUNCH BUFFER WITH THE MAINTENANCE BIT SET 

ICAUSES THE READER DONE BIT TO SET SOMETIME AFTER, 
RESET2 

JSET MAINTENANCE BIT 

ILOAD PUNCH BUFFER 

IWAIT, 

ITEST READER DONE BIT 

IBRANCH IF READER DONE BIT SET, 

IERROR. SOMETIME AFTER PUNCH 

/BUFFER LOAD WITH MAINTENANCE BIT 

ISET THE READER DONE BIT WAS NOT SET 

ISCOPE 

P0T40I 40 | PRG0 TEST ROUTINE 40 

P0T41 IADDRESS OF NEXT ROUTINE 

20, ITEST ITERATION COUNT 

P0GAA ISCOPE ENTRY POINT 

ITEST THAT CLEARING PUNCH READY AND/OR IE BIT CLEARS PUNCH INTERRUPT REQUEST, 
" "" ISET PUNCH VECTOR TO P0GAB 8 



ISET PRIORITY 7. 

IENABLE PUNCH INTERRUPTS, 

IOUTPUT CHAR 9 



BIS 


#BIT2,#TPS 


CLR 


#TPB 


DELAY* 




TSTB 


#TKS 


BMI 


,*4 


ERROR 





SCOPE 



STPCHV 




P0GAB 




RESET2 




MOV 


#PRTY7,PSW 


BIS 


#BIT6,#TPS 


CLR 


$TP8 



9 MAIN 9 
DIKLAE 

2312 
2313 
2314 
2315 
2316 
2317 
2318 
2319 
2320 
2321 
2322 
2323 
2324 
2325 
2326 
2327 
2326 
2329 
2330 
2331 
2332 
2333 
2334 
2335 
2336 
2337 
2336 
2339 
2340 
2341 
2342 
2343 
2344 
2345 
2346 
2347 
2348 
2349 
2350 
2351 
2352 
2353 
2354 
2335 
2356 
2357 
2358 
2359 
2360 
2361 
2362 
2363 
2364 
2363 
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007440 
007444 
007446 
007452 
007456 
007462 
007464 
007466 
007470 



007472 
007474 
007476 
007500 



007502 
007504 
007506 
007510 
007516 
007524 
007530 
007536 
007542 
007544 
007550 
007554 
007560 
007562 
007564 
007566 

007570 
007572 
007574 
007576 



007606 
007612 
007614 
007616 

007620 
007622 
007624 
007626 



007630 
007636 



105777 

100375 
005077 
005077 
005067 
000240 
104012 
104003 
104012 



171542 
171540 
170314 



007570 
000024 
007506 



104006 
007564 
104023 
012767 
052777 
005077 
052777 
105777 
100375 
005077 
005777 
003067 
000240 
104012 
104003 
104012 

000042 
007620 
001000 



012777 

005777 
001401 
104003 
104012 

000043 
177777 

001000 
007630 



012777 
022777 



P0T41 



| * * Aft 

ITEST 



170260 
171470 

171466 

000100 171452 

171446 

171440 
171436 
170216 



173476 
171376 



177473 

000200 



I**** 
P0T42 



ITEST 
171402 P0JAA 



|«*«rft 

P0T43 



Iftftft* 
ITEST 

171336 P0KAA 

171330 



TSTB 

BPL 

CLR 

CLR 

CLR 

NOP 

SCOPE 

ERROR 

SCOPE 

I 41 

P0T42 
20. 

P0HAA 

THAT CLEAR 
STRDRV 
P0HAB 
RESET2 
MOV 
BIS 
CLR 
BIS 
TSTB 
BPL 
CLR 
TST 
CLR 
NOP 
SCOPE 
ERROR 
SCOPE 

42 

P0T43 
1000 
P0JAA 
«#«ft***ft*ftft 
THE DL11A, 
MOV 
TST 
BEQ 
ERROR 
SCOPE 

*ti*ftftftft*ft*ft 
43 

P0TLST 

1000 

P0KAA 
*********** 
THE DL11A, 
1 MOV 

CMP 



#TPS 

9 *4 

#TPS 

PTPB 

PSW 



IWAIT FOR PUNCH R£AOY 9 

IDISABLE PUNCH INTERRUPTS. 

ILOAD BUFFER TO CLEAR PUNCH READY e 

ISET PRIORITY 0, 



IOK IF NO INTERRUPT 0CCURS 9 

IREADY CLEAR AND/OR IE BIT CLEAR DID NOT 

IPREVENT PUNCH/PRINTER INTERRUPT 

I (INTERRUPT REQUEST DID NOT CLEAR,) 

I PRG0 TEST ROUTINE 41 a 

IADDRESS OF NEXT ROUTINE * 

ITEST ITERATION COUNT * 

ISCOPE ENTRY POINT * 

ING READER DONE AND/OR IE BIT CLEARS READER INTERRUPT REQUEST, 
ISET READER VECTOR TO P0HAB, 



#PRTY7,PSW ISET PRIORITY 7 9 

#BIT2,9TPS ISET MAINTENANCE MODE, 

*TP8 IOUTPUT CHAR. 

#BIT6,#TKS IENABLE READER INTERRUPTS. 

#TKS |WAIT FOR READER DONE, 

,«4 

*TK3 IDISABLE READER INTERRUPTS, 

0TKB ICLEAR READER DONE, 

PSW ISET PRIORITY 9 



IOK IF NO INTERRUPT OCCURS, 

IDONE CLEARED AND/OR IE CLEARED DID 

IPREVENT READER INTERRUPT 

*****************#«*****«*«*************$£**« 

I PRG0 TEST ROUTINE 42 
IADDRESS OF NEXT ROUTINE 
ITEST ITERATION COUNT 
ISCOPE ENTRY POINT 



NOT 

****** 



8 KEYBOA 
0173476, 
STK8 
**4 



OARD JUMPERS ARE CUT PROPERLY 

',0TK8 IATTEMPT TO SET NONSTABLE BITS 

IDID ANY SETT 

IBR IF NO 



I PRG0 TEST ROUTINE 43 a 

IADDRESS OF NEXT ROUTINE * 

ITEST ITERATION COUNT * 

ISCOPE ENTRY POINT * 

**«*******«*«****ft*****ft«*******ftftaift****&*$****$t***&*&&ft 

B PRINTER JUMPERS ARE CUT PROPERLY 

#177473, #TPS IATTEMPT TO SET NONSTABLE BITS 

3BIT7,#TPS IDID ANY SET? 



".MAIN. HAGYU 17C6S?) i7®N0V*7S Mlflft PAGE ii 

DfKUE PR8S ■ INPUT*OUTPUT LOGIC TUTS 

§366 307644 00140J SEQ 

§317 §87646 104003 ERROR 

2318 0076S® 1 SUSS 2 SCOPE 



e *4 



|BR IF NO 



DZKLAE 

2369 
2370 
2371 
2372 
2373 
237a 
2375 
2376 
2377 
2378 
2379 
2360 
2361 
2362 
2363 
2364 
2385 
2386 
2387 
2388 
2389 
2390 
2391 
2392 
2393 
2394 
2395 
2396 
2397 
2398 
2399 
2400 
2401 
2402 
2403 
2404 
2405 
2406 
2407 
2408 
2409 
2410 
8411 
2412 
2413 
2414 
2415 
2416 
2417 
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007652 

007660 
007666 
007674 



000001 
177777 
012767 
012767 
012767 
052767 



007734 

007736 007764 

007740 001750 

007742 007750 



007744 
007750 
007752 
007756 
007762 



004767 
104002 
004767 
004767 
104012 



007706 
177760 
177400 



007702 000167 171736 



007706 

007710 007734 

007712 003720 

007714 007722 



007716 004767 173714 

007722 004767 172644 

007726 004767 173644 

007732 104012 



173666 



172614 
173614 



007764 

007766 177777 

007770 000310 

007772 010000 



007774 004767 173636 

010000 004767 173546 

010004 104002 

010006 004767 172560 

010012 004767 173560 

010016 005367 173552 

010022 001371 

010024 104012 



171354 
173704 
173310 
171346 



.SBTTL 
Z»l 
X*-i 
PRGll MOV 
MOV 
MOV 
BIS 
JMP 

| * * * * * ft * * * ft * * ft ft 

P1T0I 

P1T1 

2000, 

P1AA 

r ft**«#ft*ft*ftft**ft 

IREAD AND CHECK 
JSR 

piaa: JSR 
JSR 
SCOPE 

J ftftftftftftftftftftftft** 



PRGl READER TEST 



«tPlT0,KSTART 
#177760, RCMSK 
#177400, STUMSK 
#8IT14,PRGID 
SRSET 
i ft ft ft ft ft * * * ft « ft « ft * * 



rftftftftftftftftftftftftft* 

2000 CHARACTERS 
X7,BSYNC 
X7, BREAD 
X7,BCHECK 

ft ft « * ft ft * * ft ft ft ft ft ft « ft 



/SET ADDRESS OF FIRST ROUTINE 

/SET STALL LIMIT, 

JALLOW STALLS 

|QO GET STARTED, 
ftft**ftft***ftftftft*ft*ftftft*ftft*ftftftftft**ftftftftftft»***ft 

I PRGl TEST ROUTINE 

IADDRE3S OF NEXT ROUTINE 

ITEST ITERATION COUNT 

ISCOPE ENTRY POINT 
ftftftft*ftft**ft**ft*ft*******«*ft**ft«*ftftft*ft«ftftft*** 

OF SPECIAL BINARY COUNT PATTERN, FULL SPEED, 

ISYNC READER! SET ERROR COUNTER, 

|GO READ CHARACTER 

|GO CHECK CHARACTER READ. 

/SCOPE 
ftftftft***ft*ftft*ftftftft*ft*ftftftftftftftft*«*ftftft*ft*ft«*ftft« 



PlTi: 1 | PRGl TEST ROUTINE 1 

P1T2 IADDRESS OF NEXT ROUTINE 

1000, ITEST ITERATION COUNT 

P1BA ISCOPE ENTRY POINT 

|ftftAftftft*ft*ftftftft*ft*ft***ft*ftft***ftft*ftft«ftftftftft*ft*ft*ftftft*ftftftft*ft*ftftftftftftftftft«4*«l 

IREAD AND CHECK 1000 CHARACTERS OF SPECIAL BINARY COUNT PATTERN, 
IRANDOM STALL BETWEEN CHARACTERS, 



P1BA! 



JSR 

STALL 

JSR 

JSR 

SCOPE 



X7,BSYNC 



X7, BREAD 
X7,BCHECK 



ISYNC READERI SET ERROR COUNTER 

IRANDOM STALL 

|GO READ CHARACTER 

|GO CHECK CHARACTER READ 

ISCOPE 

P1T2I 2 I PRGl TEST ROUTINE 2 * 

P1TL8T (ADDRESS OF NEXT ROUTINE * 

200, ITEST ITERATION COUNT * 

PICA ISCOPE ENTRY POINT * 

IREAD AND CHECK 200 CHARACTER GROUPS OF SPECIAL BINARY COUNT PATTERN, 

IRANDOM LENGTH 

IGROUPS (BETWEEN 1 AND 15), RANDOM STALL BETWEEN GROUPS (B TO 127 MSECS) , 

JSR X7,BSYNC ISYNC READER; SET ERROR COUNTER, 

P1CAI JSR X7,GRCNT IGENERATE RANDOM CHARACTER COUNT. 

STALL IRANDOM STALL £0 TO 127 MSECS) 

P1CCI JSR X7, BREAD |GO READ CHARATER 

JSR X7,BCHECK |GO CHECK CHARACTER READ 

DEC RNCNT iDECReMENT RANDOM CHAR COUNT 

BNE P1CC |GO READ AGAIN IF COUNT NOT S 9 

SCOPE ISCOPE 



8 MAIN 9 
DIKUE 

3418 
3419 

3430 
2421 
2432 
2433 
2434 
3425 
2436 
2437 
3428 
2429 
2430 
2431 
2432 
2433 
2434 
2435 
2436 
2437 
2438 
2439 
2440 
2441 
2442 
2443 
244a 
2445 
2446 
2447 
2448 
2449 
2450 
3451 
2452 
2433 
2454 
2455 
2456 
2437 
2458 
2459 
2460 
2461 
2462 
2463 
2464 
2465 
2466 
2467 
2468 
2469 
2070 
2471 
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S4I§6 PAgg §1 



010026 
010034 
010042 
010030 
010054 

010060 
010062 



010064 
010066 
010070 
010076 
010100 
010106 
010112 
010116 
010124 
010130 
010132 
010134 
010142 
010146 
010152 
010156 
010160 
010164 
010170 
010174 
010200 
010204 

010206 
010210 



010212 
010214 
010216 
010224 
010232 
010234 
010236 
010244 
010232 
010254 
010256 
010262 
010264 
010266 



000002 
177777 
012767 
052767 
012767 
004767 
000167 

000000 
010206 



104000 
014366 
012767 
104015 
162767 
112700 
004767 
016767 
005367 
001001 
104012 
016767 
112700 
004767 
005367 
001371 
112700 
004767 
004767 
112700 
004767 
000747 

000001 
010272 



1 

014417 

012767 

012767 

104015 

000406 

012767 

012767 

104000 

010341 

005367 

001373 

104000 



010060 
000200 
177600 
174560 
171364 



000122 

000011 
000134 
174260 
171240 
171234 



171244 
000040 
174224 
171230 

000015 
174206 
174202 

000057 
174172 



000016 
014347 



000017 
014353 



171122 



171200 
171206 
173134 



•sbttl 

Zii 

MOV 
SIS 
MOV 
JSR 

JMP 



PR0a»P8lNTfR TESTS 



#P8T0,K8TART 
#BXT7,PRGXD 
#177600, STLMSK 
S7,8TBF 
SRSET 



P2T0I 



/CARRI 



/SET AD0RS88 IP 1ST ROUTINE, 

I8IT STALL LIMIT 
/SET UP SUFFER ARIA 8 
ISO SET STARTED, 



««*»*«&$ gft*ft«aft««* 6***&a ft*6****«M*fe6*M**ft*««ft*6ft««*«*ftft««*ft*6ft««« 
I PR62 TEST ROUTINE @ <* 

P2T1 /ADDRESS OF NEXT ROUTINE ft 

AGE RETURN TEST, 



171264 
171234 



CT0BI 
CT0CI 



TYPE 

CRTST 

MOV 

CK37 

SUB 

MOVB 

J3R 

MOV 

DEC 

BNE 

SCOPE 

MOV 

MOVB 

JSR 

DEC 

BNE 

MOVB 

JSR 

JSR 

MOVB 

JSR 

BR 



#82.»RCNT 

#9,,RCNT 

#»\,X0 

X7,LSPCH 

RCNT,CTRA 

CTRA 

CT0B 

CTRA, CTRB 

#40, X0 

X7,L8PCH 

CTRB 

CT0C 

915, X0 

X7,LSPCH 

X7,LSPCH 

#V,X0 

X7,LSPCH 

CT0A 



HYPE TITLE* 



/PRINT 

r\ H 

IRCNT TO CTRA 
/DECREMENT CTRA 
/BRANCH IP NOT 
10. SCOPE 
/SPACE COUNT TO CTRB 9 

/SPACE, 

DECREMENT CTRB 9 

IBRANCH IF NOT DONE SPACING, 

ICARRXAGE RETURN, 
IDUMMY CYCLE, 

IPRINT »/". 



P2T1I 1 / PRG2 TEST ROUTINE 1 * 

P2T2 IADDRESS OP NEXT ROUTINE * 

/RIGHT MARGIN TEST 



171160 

000034 



171140 
000010 



TYPE 

RMTST 

MOV 

MOV 

CK37 

BR 

MOV 

MOV 

TYPE 

RM33A 

DEC 

BNE 

TYPE 

OPEN 



#14,, CTRA 
#RM33B,RMB 

CT1A 

#15., CTRA 
#RM3VA,RMB 



CTRA 
CT1A 



/TYPE TITLE 

/SET UP FOR 33/35 

137 

/NO 
/YES, 

/SET UP FDR 37, 
ITYPE-— •! 

/DONE N TIMES, 
/BRANCH IF NOT N T 
/TYPE-X-. 



.MAIN, 
DZKLAE 

2472 
2473 
2474 
2475 
2476 
2477 
2473 
2479 
2480 
2461 
2482 
2463 
2464 
2485 
2486 
2487 
2488 
2489 
2490 
2491 
2492 
2493 
2494 
2495 
2496 
2497 
2498 
2499 
2500 
2501 
2502 
2503 
2504 
2505 
2506 
2507 
2508 
2509 
2510 
2511 
2512 
2513 
2514 
2515 
2516 
2517 
2318 
2519 
2520 
2321 
2522 
2523 
2524 
2525 
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010270 104012 



010272 
010274 



010276 
010300 
010302 
010310 
010312 
010314 
010320 
010322 
010330 
010336 
010344 
010350 
010354 
010360 
010364 
010370 
010374 
010376 
010402 
010406 
010412 
010414 
010416 
010424 

010426 
010430 



010432 
010434 
010436 
010444 
010432 
010434 
010456 
010464 
010470 
010474 
010500 
010504 
010510 
010512 
010514 
010516 

010520 
010322 



000002 
010026 



104000 
014445 
012767 
104000 
014363 
005367 
001373 
012767 
012767 
016767 
112700 
004767 
004767 
112700 
004767 
005367 
001371 
112700 
004767 
005367 
001001 
104012 
062767 
000744 

000003 
010320 



104000 
014464 
052767 
012767 
104015 
000403 
062767 
112700 
004767 
112700 
004767 
003367 
001001 
104012 
104002 
000762 

000004 
010732 



0000U 

000134 
173702 
000012 
173672 
170674 



14306 PAGE 53 



SCOPE 

/ftAftftftftftftftftftAftAft 

P2T21 2 

P2T3 
/aft************* 
/SPACE TEST 

TYPE 



/SCOPE, 

/ PRG2 TEST ROUTINE 2 * 

/ADDRESS OF NEXT ROUTINE * 



000044 171074 



171034 
171050 
171044 



171060 

000044 
000001 
171044 

000015 

174022 
174016 
000040 
174006 
171014 

000057 
173770 
170772 



000002 170762 CT2EI 



CT2AI 



CT2BI 
CT2CI 



CT2D1 



170604 
170732 



SPTST 

MOV 

TYPE 

SPTSTC 

DEC 

BNE 

MOV 

MOV 

MOV 

MOVB 

JSR 

JSR 

MOVB 

JSR 

DEC 

BNE 

MOVB 

JSR 

DEC 

BNE 

SCOPE 

ADD 

BR 

/ftft«ftft*««Aftftft«ft* 

P2T3I 3 

P2T4 
/aaaaaaaaaaaaaaa 
/LINE FEED TEST 

TYPE 

LFTST 

BIS 

MOV 

CK37 

BR 

ADD 
CT3AI MOVB 

JSR 

MOVB 

JSR 

DEC 

BNE 

SCOPE 
CT3BI STALL 

BR 
/«ft«**ftft****««ftft 
P2T4I 4 

P3TS 



#36.iCTRA 



CTRA 

CT2A 

#36., CTRA 

#1,CTRB 

CTR8,CTRC 

#15, X0 

X7,LSPCH 

X7,LSPCH 

#40, X0 

X7,LSPCH 

CTRC 

CT2D 

#«/,X0 

X7,L8PCH 

CTRA 

CT2E 

#3, CTRB 

CT2C 

aaaaaaaaaa 



/TYPE TITLE, 

Z33/35 COUNT TO CTRA, 
/TYPE SPACE, \. 

/DONE TIMES SET IN CTRAf 

/BRANCH IF NOT DONE 

/SET UP CTRA COUNT FOR 33/35 



/CARRIAGE RETURN, 

/DUMMY CYCLE, 

/SPACE NUMBER OF TIMES 

/SET IN CTRC. 

/DONE SPACING. 

/BRANCH IF NOT DONE SPACING. 

/DONE, TYPE A ■/■. 

/DONE 36 TIMES? 

IBRANCH IF NOT DONE, 

/DONE. SCOPE, 

/MODIFY CTRB FOR NEXT TRY. 

/GO DO IT AGAIN, 

ftftA**AAftAAAAAAftAAAAAAAAAAA*AAAA*Aft*****A*ftA**A* 

/ PRG2 TEST ROUTINE 3 * 

/ADDRESS OF NEXT ROUTINE « 

***«l*»****H**<ll!«**ft****»(l*********lll***«****«**«*»ft«*«*«lft 



#BIT14,PRGID 
#72., CTRA 

CT3A 

#9,, CTRA 
#«\,X0 
X7,LSPCH 
#12, X0 
X7,LSPCH 
CTRA 
CT3B 



/TYPE TITLE 

/ALLOW STALLS, 

/SET 33/35 LINE FEED COUNT, 

Z37T 

/NO. 

/INCREMENT LINE FEED COUNT BY 9, 

/TYPE "\» 

/LINE FEED. 



/OONE N TIMES? 
/BRANCH IF NOT OONE, 
/DONE, SCOPE 
/STALL 
CT3A /REPEAT 

/ PRS2 TEST ROUTINE 4 ft 

/ADDRESS OF NEXT ROUTINE « 



9 nAIN 8 
DZKUE 

3136 

asi? 
ssae 

3339 
3330 
2331 
3313 
3333 
2334 
2333 
2336 
233? 
2336 
2339 
2540 
2541 
2342 
2343 
2S44 
2545 
2346 
2547 
2548 
2549 
2550 
2551 
2552 
2553 
2554 
2555 
2556 
2557 
2553 
2559 
2560 
2561 
2562 
2563 
2564 
2565 
2566 
2567 
2568 
2569 
2570 
2571 
2572 
2573 
2574 
2575 
2576 
2577 
2578 
2579 
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0&S324 
010332 
010334 
010336 
010542 
010344 
010346 
010530 
010556 
010562 
010366 
010572 
010576 
010600 
010602 
010606 
010610 
010612 
010614 
010616 
010622 
010624 
010626 
010630 
010632 
010634 
010636 
010644 
010632 
010654 
010660 
010664 
010670 
010672 
010676 
010702 
010706 
010712 
010716 
010722 
010726 
010730 

010732 
010734 



010736 
010740 
010742 

010744 
010746 



012767 
104014 
104012 
004367 
000007 
104000 
014315 
012767 
005067 
004767 
103267 
003367 
001371 
104012 
012567 
104000 
014300 
104000 
014326 
005367 
001373 
000205 



1 

014337 
016767 
016767 

001407 
112700 
004767 
005367 
001371 
112700 
004767 
004767 
004767 
112700 
004767 
005367 
00134b 
000207 



§00011 
000040 

000007 



ITAB 



000044 
000036 
170606 



170376 



170562 



177764 
177760 



173312 
170520 

000011 
173474 
173470 
173464 
000057 
173454 
170460 



170636 CT4AI 
CT4BS 



TPBM1 
TPBMA 



TBCNT 
SPCNT 
TABPI 

170542 
170536 TABPA 



P2T5J 



|ftft»ft 

ITYPE 



104000 
014507 
104016 
014176 
104012 



TEST 

NOV 

CK33 

SCOPE 

JSR 

7 

TYPE 

TBMRK*i 

MOV 

CLR 

JSR 

INC 

DEC 

BNE 

SCOPE 

MOV 

TYPE 

TBTST 

TYPE 

TBMRK1 

DEC 

BNE 

RT8 

OPEN 
I OPEN 

TYPE 

CRLF 

MOV 

MOV 

BEQ 

MOVB 

JSR 

DEC 

BNE 

MOVB 

JSR 

JSR 

JSR 

MOVB 

JSR 

DEC 

BNE 

RTS 
aft*rftftft***ft 

5 

P2T6 

* « ft ft ft ft ft ft ft ft a 

LINE OF CH 
TYPE 
CHRTST 
TYPLN3 
A 
SCOPE 



M,# TBCNT 
SS3,TPBM 



#7, CTRA 

SPCNT 

S7,TABP 

SPCNT 

CTRA 

CT4B 

(5)*, CTRA 



CTRA 

TPBMA 

X5 



TBCNT, CTRB 

SPCNT, CTRC 

TABPC 

#40, X0 

X7,LSPCH 

CTRC 

TABPB 

#11, %0 

X7,LSPCH 

X7,LSPCH 

X7,LSPCH 

#»/,X0 

%7,LSPCH 

CTRB 

TABPA 

X7 

ft ft ft ft ft * ft * ft ft ft * ft ft i 



ftftftftft*«Aftftftftft*i 
ARACTERS ABC 



MET TAB COUNT* 
|33f 

|N0 9 

HYPE MARKERS 



ILINE COUNT TO CTRA 
10 TO SPACE COUNT* 
|GO SPACE«TAB, 
^INCREMENT SPACE COUNT 9 
fDONE 7 LINESf 
IBRANCH IF NOT DONE 9 
IDONE, SCOPE, 
ITYPE TEST TITLE, 



ITYPE MARKERS 



IEXIT, 
|TAB COUNT 
JSPACE COUNT 
ICRLP, 

ITAB COUNT TO CTRB 
ISPACE COUNT TO CTRC 
IBRANCH IF SPACE COUNT IS e 
ISPACE 

IDECREMENT SPACE COUNT 
IBRANCH IF NOT YET 0, 
ITAB 

IDUMMY CYCLE 
IDUMMY CYCLE, 
ITYPE "/" 

IDECREMENT TAB COUNT, 
IBRANCH IF NOT DONE TABBING, 
IDONE, EXIT, 

ftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftft 

I PRG2 TEST ROUTINE 5 * 

IADDRESS OF NEXT ROUTINE ft 

ftftftftftftftftftftftftftftftftftfttiftftftftftft&ftftftft&gftftftftftftftftftft 

ITYPE "CHARACTER TESTS" 

ITYPE LINE 

ISCOPE 
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2580 






2581 


010750 


000006 


2582 


010752 


010762 


2563 






2584 






2585 


010754 


104016 


2586 


010756 


014201 


2587 


010760 


10«012 


2588 






2589 


010762 


000007 


2590 


01076a 


010774 


2591 






2592 






2593 


010766 


104016 


239a 


010770 


014204 


2595 


010772 


104012 


2596 






2597 


010774 


000010 


2598 


010776 


011006 


2599 






2600 






2601 


0U000 


104016 


2602 


011002 


014207 


2603 


011004 


104012 


2604 






2605 


011006 


000011 


2606 


011010 


011020 


2607 






2608 






2609 


011012 


104016 


2610 


011014 


014212 


2611 


011016 


104012 


2612 






2613 


011020 


000012 


2614 


011022 


011032 


2615 






2616 






2617 


011024 


104016 


2618 


011026 


014215 


2619 


011030 


104012 


2620 






2621 


011032 


000013 


2622 


011034 


011044 


2623 






2624 






2625 


011036 


104016 


2626 


011040 


014220 


2627 


011042 


104012 


2628 






2629 


011044 


000014 


2630 


011046 


011056 


2631 






2632 






2633 


011050 


104016 
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|ft«ftftftftft«ftl»ft««ft«ftft#ftftftft«Aftftftftftaftftft«ft«ft A ^«* AA ««t*ftftftft«ftftftftftftftftftftftftftftftftftftftft 

P2T6» 6 | PRG2 TEST ROUTINE 6 ft 

P2T7 IADDRESS OF NEXT ROUTINE * 

|««ftAftft»ft*#«ftftft«ftftftftft«ft«ft*ftftft«ft«ftftftftftftaftftftftftftftftftftftftftft«ft«ftftftftftftAftftftftftftftftftft 
ITYPE LINE OF CHARACTERS DEF 

TYPLN3 ITYPE LINE 

D 

SCOPE ISCOPE 
;ftft#ftftftftftft«ftftftftftftftftft«ftftft«ftftft#ftftftft«ft«ftftAftftft*ftftftftftftftftftftftftftft«ftftft«ftftftftftftft««ft« 

P2T7! 7 | PRG2 TEST ROUTINE 7 ft 

P2T10 IADDRESS OP NEXT ROUTINE ft 

1********** **************** ***************#***** ******$***** &$* fitititfiZtoXHI, 

ITYPE LINE OF CHARACTERS GHI 

TYPLN3 ITYPE LINE 

G 

SCOPE ISCOPE 

P2T10I 10 | PRG2 TEST ROUTINE 10 ft 

P2T11 IADDRESS OF NEXT ROUTINE « 

ITYPE LINE OF CHARACTERS OF JKL 

TYPLN3 ITYPELINE 

J 

SCOPE ISCOPE 
|*ftftft*ftftft**ftftftft«*&ft*ftftftft*ftft**ftftftftftftftft*ftftft*a*ft*ftft^ 

P2T1U 11 | PRG2 TEST ROUTINE It * 

P2T12 IADDRESS OF NEXT ROUTINE ft 

ITYPE LINE OF CHARACTERS MNO 

TYPLN3 ITYPE LINE 

M 

SCOPE ISCOPE 

P2T12I 12 | PRG2 TEST ROUTINE 12 ft 

P2T13 IADDRESS OF NEXT ROUTINE ft 

ITYPE LINE OF CHARACTERS PQR 

TYPLN3 ITYPE LINE 

P 

SCOPE ISCOPE 

P2T13I 13 | PRG2 TEST ROUTINE 13 * 

P2T14 IADDRESS OF NEXT ROUTINE * 

|ft*ftft*ftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftft«ftftftftftftft*ftftftftftftftftft 

ITYPE LINE OF CHARACTERS STU 
TYPLN3 
S 
SCOPE 

P2T14I 14 | PR02 TEST ROUTINE 14 « 

P2T13 IADDRESS OF NEXT ROUTINE ft 

ITYPE LINE OF CHARACTERS VWX 

TYPLN3 ITYPE LINE 



,MAIN 9 


MACfll 


§7(637} 


DZKUE 


PR82*PRINTER TE 


2634 


011032 


014223 


2633 


011034 


104012 


2636 






2637 


011036 


000015 


263S 


011060 


011070 


2639 






2640 






2641 


011062 


104016 


2642 


011064 


014226 


2643 


011066 


104012 


2644 






2645 


011070 


000016 


2646 


011072 


011102 


2647 






2646 






2649 


011074 


104016 


2650 


011076 


014231 


2651 


011100 


104012 


2652 






2653 


011102 


000017 


2634 


011104 


011114 


2655 






2656 






2637 


011106 


104016 


2656 


011110 


014234 


2659 


011112 


104012 


2660 






2661 


011114 


000020 


2662 


011116 


011126 


2663 






2664 






2665 


011120 


104016 


2666 


011122 


014237 


2667 


011124 


104012 


2666 






2669 


011126 


000021 


2670 


011130 


011140 


2671 






2672 






2673 


011132 


104016 


2674 


011134 


014242 


2675 


011136 


104012 


2676 






2677 


011140 


000022 


2678 


011142 


011152 


2679 






2660 






2661 


011144 


104016 


2662 


011146 


014245 


2683 


011150 


104012 


2684 






2685 


011152 


000023 


2686 


011134 


011164 


2687 
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V 

scope 



neon 



P8T1SS t IS 

P2T16 



I* 



I PRS2 TEST ROUTINE &@ 
f ADDRESS OP NEXT ROUTINE 



ITYPE LINE OP CHARACTERS Y20 

TYPLNS ITYPE LINE 

Y 

SCOPE ISCOPE 



I* 



P2T168 16 

P2T17 



I* 



I PRSi TEST ROUTINE 16 
IADDRESS OP NEXT ROUTINE 



ITYPE LINE OF CHARACTERS 123 

TYPLNS ITYPE LINE 

ONE 

SCOPE ISCOPE 

P2T17! 17 I PRQ2 TEST ROUTINE 17 • 

P2T20 IADDRESS OP NEXT ROUTINE a 

ITYPE LINE OP CHARACTERS 436 

TYPLNS ITYPE LINE 

POUR 

SCOPE ISCOPE 

P2T203 20 I PRQ2 TEST ROUTINE 20 & 

P2T21 IADDRESS OP NEXT ROUTINE * 

ITYPE LINE OP CHARACTERS 789 

TYPLNS ITYPE LINE 

SEVEN 

SCOPE ISCOPE 
|«ft«ft*««««ft««ft««if««A6««ft«ft6«ftA««ft**ft**«*ftftft«A«ft«ft*ft«fi«ft«ft«A««a««a«««««)a«« 

P2T21I 21 | PRG2 TEST ROUTINE 21 * 

P2T22 IADDRESS OP NEXT ROUTINE a 
|#ftfta**ftftftftftft$ft«*ftftft**ftft*ftftftft$feftAft*ftft*ftft«ftftftftft&ft^ 
ITYPE LINE OF CHARACTERS!"* 

TYPLNS ITYPE LINE 

C41 

SCOPE ISCOPE 
|*ft**ftftftftft*ftft*ft#**ft***ftftftftftftftft«*ft***ft*ftft*ftftft*ft^ 

P2T22! 22 | PRG2 TEST ROUTINE 22 * 

P2T23 IADDRESS OF NEXT ROUTINE * 

ITYPE LINE OF CHARACTERS S%& 

TYPLNS ITYPE LINE 

C44 

SCOPE ISCOPE 

Jftft»ftft*ftftft«ftftftft^ft&*ftft«*&ftft*ft«**ftft*ft*ftft*fti»ftft*ftft 

P2T23I 23 I PRG2 TEST ROUTINE 23 ft 

P2T24 IADDRESS OP NEXT ROUTINE ft 
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2688 






2689 


011156 


104016 


2690 


011160 


014250 


2691 


011162 


104012 


2692 






2693 


011164 


000024 


2694 


011166 


011176 


2695 






2696 






2697 


011170 


104016 


2698 


011172 


014253 


2699 


011174 


104012 


2700 






2701 


011176 


000025 


2702 


011200 


011210 


2703 






2704 






2705 


011202 


104016 


2706 


011204 


014256 


2T07 


011206 


104012 


2706 






2709 


011210 


000026 


2710 


011212 


011222 


2711 






2712 






2713 


011214 


104016 


2714 


011216 


014261 


2715 


011220 


104012 


2716 






2717 


011222 


000027 


2716 


011224 


011234 


2719 






2720 






2721 


011226 


104016 


2722 


011230 


014264 


2723 


011232 


104012 


2724 






2725 


011234 


000030 


2726 


011236 


011246 


2727 






2728 






2729 


011240 


104016 


2730 


011242 


014267 


2731 


011244 


104012 


2732 






2733 


011246 


000031 


2734 


011250 


011260 


2735 






2736 






2737 


011252 


104016 


2738 


011234 


014272 


2739 


011236 


104012 


2740 






2741 


011260 


000032 



ITYPE LINE OF CHARACTERS *C) 

TYPLNS ITYPE LINE 

C47 

SCOPE ISCOPE, 
|ftft**ftft*ft*ft«««ft#*ft**«**&ftft*ft*ftftft*ft*ftftftft«ft**ft*ftft^ 

P2T24I 24 | PRG2 TEST ROUTINE 24 ft 

P2T25 IADDRESS OF NEXT ROUTINE * 

ITYPE LINE OF CHARACTERS * + , 

TYPLNS ITYPE LINE 

C52 

SCOPE ISCOPE 

|A*****S****A*ftftAAAA*****A*^Aft*AA****ft*«ft*6Aftl»#ft*ftaftS*^ftAft*ftftft*ft^ft**A6ft!Si» 

P2T25J 25 | PRG2 TEST ROUTINE 25 ft 

P2T26 IADDRESS OF NEXT ROUTINE ft 

|***ft*«ftft<Mftftftft««ti&ftftftftftftft*ftftft**ftftft*«ftft*ft«ftftftftftft* 
ITYPE LINE OF CHARACTERS *„/ 

TYPLNS ITYPE LINE 

C55 

SCOPE ISCOPE 

P2T26I 26 | PRG2 TEST ROUTINE 26 ft 

P2T27 IADDRESS OP NEXT ROUTINE ft 

!*ft*ftft«ftftftft*ftftftftftftftftft*ftft*ftftft*ftft*ftftft*ftftftftft*ftftft*ftft 
ITYPE LINE OF CHARACTERS l|« 

TYPLNS ITYPE LINE 

C72 

SCOPE ISCOPE 

|ftft*ftftftftftftftftft*ft*ftft«tt&*fe***ft&ft&ftft4ftftft*ftft*ft*ftftftftft 
P2T27! 27 I PRG2 TEST ROUTINE 27 ft 

P2T30 IADDRESS OP NEXT ROUTINE ft 

|ftft*ftft«ftOftftft«$ftft*ftftftftftftftftft**ft*ft*ft**«ftft«ft^ 
ITYPE LINE OF CHARACTERS »&? 

TYPLNS ITYPE LINE 

C75 

SCOPE ISCOPE, 

|*ftftft«ftft*ft*ftft«ftft«ft*ft*ft**:M**ftftftftftftftftftftft«ftftftftft«» 

P2T30I 30 I PRG2 TEST ROUTINE 30 ft 

P2T31 IADDRESS OF NEXT ROUTINE ft 
lOftftftftftftftftftftftftftftftftftftftftftftftftft&ftftftftftftftftftftftftiirftftftftftftft&ftftft 

ITYPE LINE OF CHARACTERS $ l\ 

TYPLNS ITYPE LINE 

C100 

SCOPE ISCOPE 

!ft*«ftftft«ftft*ftftftftftft«ftftftftA#ftftft«ftftftftftftftftftftftftftftftftftft«*ftft 

P2T31I 31 I PRG2 TEST ROUTINE 31 ft 

P2T32 IADDRESS OP NEXT ROUTINE ft 

|ftftftftftft«ftftftftft*ftftftftftttft*ftftftftftA*ftft&ftft*ft*ftft*«*ftftftftft«ftftft 

ITYPE LINE OF CHARACTERS ]*ANO LEFT ARROW 

TYPLN3 ITYPE LINE 
C135 

SCOPE ISCOPE 

|*ft*ft*ft****A*^SS8ld4*ft**SS^ft**4*ftftfeft*ftaft*ft**ft*ft*ft*A*i!!*«l«**6**^S^!!)&&!!ia^*ft^^ 

P2T32I 32 I PRG2 TEST ROUTINE 32 ft 
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IT4| 

1743 

iT«g 

1746 
1747 
1743 
3749 
2730 
373J 
273g 
2733 
2734 
2733 
3736 
2737 
2738 
2739 
2760 
2761 
2762 
2763 
2764 
2763 
2766 
2767 
2763 
2769 
2770 
2771 
2772 
2773 
277a 
2775 
2776 
2777 
2778 
2779 
2780 
2781 
2782 
2783 
278a 
2785 
2786 



fiiiii iiiiii 



§11164 
§11270 
011276 
011302 
011310 
011314 

011316 
011320 



011322 
011324 
011326 

011330 
011332 
011336 
011344 
011352 
011336 
011364 
011370 
011374 
011376 

011400 
011402 



011404 
011406 
011410 
011412 
011414 
011420 
011426 
011434 
011440 
011446 
011452 
011456 
011460 



004767 
042767 
004767 
032767 
004767 
104011 

000033 
011400 



104013 
104012 
104000 
014533 
004767 
012767 
042767 
004767 
032767 
004767 
003367 
001363 
104012 

000034 
177777 



104014 
104012 
104000 
014533 
004767 
012767 
042767 
004767 
052767 
004767 
005367 
001363 
104012 



173416 
048088 
173236 
S4S0S0 
173214 



167712 
167740 



P1TS3 

Iftftftft&ftftttft&ftftft 

ITVFI I LINES 
JSR 
3ZC 
JSR 
BIS 
J8R 
SCOPE 

PIT33! 33 

P8TS4 



I* 



IADDRESS OF NOT ROUTINE ft 

OF ALL CHARACTERS, FIRST LINE FULL 8PEID 9 SECOND UNI WITH STALLS* 
tlifUll JPILL SUFFER WITH AU CHARACTIR8 9 

8BIT14,PRGID FGLEAR STALL SIT IN PR8ID 
S7,TYPLN ITYPE LJNg 9 
#8XTU,MBID I8ET STALL SIT IN PR8XD 
S7,TYPLN ITYPE LINE, 
ISCOPE, 

I PR8I TEST ROUTINE 33 * 

IADDRESS OF NEXT ROUTINE ft 



170040 
167676 



173430 

000006 

040000 

173162 

040000 167664 

1731S0 

170010 



167756 

167614 
173100 

040000 167602 
173066 
167726 



ITYPE 12 LINES 
CK33 
SCOPE 
TYPE 
WCPT8T 
JSR 
MOV 

CT33AI SIC 
JSR 
BIS 
JSR 
DEC 
BNE 
SCOPE 

| ftftftftftftftftftftftftfttl 

P2T341 34 

P2TLST 

|ft*ftftftftft««ftft«fttf 

ITYPE 12 LINES 
CK33 
SCOPE 
TYPE 
WCPTST 
JSR 
MOV 

CT34AI BIC 
JSR 
BIS 
JSR 
DEC 
BNE 
SCOPE 



OF A8R33 WORST CASE PATTERN, ALTERNATE LINES WITH STALLS, 
133? 

|NO« BYPASS TEST, 
ITYPE "WORST CASE PATTERN TEST* 

X7,FW336 IPATTERN TO BUFFER* 

#6, CTRA |SET COUNT TO 6 

8BIT14,PRGID ICLEAR STALL BIT IN P88ID, 

X7,TYPLN ITYPE LINE 

#BIT14,PRGID |SET STALL BIT IN PRGID* 

*7,TYPLN |TYPE LINE, 

CTRA IDONE 6 TIMES? 

CT33A IBRANCH IF NOT 6 TIMES YET 9 

IDONE, SCOPE, 
ftftftftft ftftft* * &ft«rftft ftftftftftftftftftftftftft ftftftftftftftftftftftftftft ftftft « «««*«*««««*& 
I PRQ2 TEST ROUTINE 34 ft 

IADDRESS OF NEXT ROUTINE * 

ftftftft ft ftftftft ftftftft ft ftftftftftft ftftftft ftftftftftft ft ft ftftftft ftftftftftft ftftftftftft ftftftftftftftftftft 

OF ASR3S WORST CASE PATTERN, ALTERNATE LINES WITH STALLS, 
|3S? 

|NO, BYPASS TEST, 

ITYPE "WORST CASE PATTERN TEST* 

X7,FW356 IPATTERN TO BUFFER, 

#6, CTRA ISET COUNT TO 6, 

#BIT14,PRGID ICLEAR STALL BIT IN PRGID 9 

%7,TYPLN ITYPE LINE 9 

»8IT14 f PRG2D ISET STALL BIT IN PRG1D, 

X7,TYPLN ITYPE LINE 

CTRA IDONE 6 TIMES? 

CT34A IBRANCK IF NOT 6 TIMES YET, 
IOONE, SCOPE, 



,MAIN a 
DZKLAE 

2787 
2788 
2789 
2790 
2791 
2793 
2793 
2794 
2795 
2796 
2797 
2798 
2799 
2800 
2801 
2802 
2803 
2804 
2805 
2806 
2807 
2808 
2809 
2810 
2811 
2812 
2813 
2814 
2815 
2816 
2817 
2818 
2819 
2820 
2821 
2822 
2823 
2324 
2825 
2826 
2827 
2328 
2829 
2830 
2831 
2832 
2833 
2834 
2835 
2336 
2837 
2338 
2839 
2S4@ 
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011462 
011470 
011476 
011504 

011510 
011512 
011514 
011516 



011520 
011526 
011532 
011536 
011542 
011546 
011552 
011554 
011560 
011564 

011566 
011570 
011572 
011574 



011576 
011604 
011610 
011614 
011620 
011624 
011626 
011632 
011634 
311640 
011644 

011646 
011650 
311652 
011654 



000003 
177777 
012767 
052767 
012767 
000167 



011566 
000005 
011520 



012767 

004767 
004767 
004767 
004767 
005367 
001371 
004767 
004767 
104012 



1 
011646 

000005 
011576 



012767 
004767 
004767 
004767 
004767 
104002 
005367 
001370 
004767 
004767 
104012 

000002 
177777 
000005 
011664 



011510 167544 

040000 167552 

177400 171500 
170134 



001000 167634 

000216 

172270 

172322 

172630 

167610 



000206 

000230 



001000 167556 

000140 

172212 

172244 

172552 



000126 
000150 



IPRG3 - 
PRG3I 



| ****** 
P3T0I 



| ******* 



.SBTTL 

PUNCH 

Z*3 

X»-l 

MOV 

BIS 

MOV 

JMP 

ft***ft« 



P3T1 

5 

P3AA 

ftftftftftft' 



PR63-PUNCH TEST 
TEST 



#P3T0,KSTART IADDR OF 1ST ROUTINE TO KSTART, 

#BXT14,PRGID IALLOW STALLS, 

#177400, STLMSK ISET STALL MASK 

SRSET |GO GET STARTED 

iftftftftftftftftftftftftftft^^ftftftftftftftftftftftftftftftftftftftAftftft^ftAft^AAftft^ft^^A^^^A^ 

I PRG3 TEST ROUTINE ft 

IADDRESS OF NEXT ROUTINE ft 

ITEST ITERATION COUNT ft 

ISCOPE ENTRY POINT ft 

********** *********** **************** t^bi,**,***** ***#*$*##« 



IPUNCH SPECIAL BINARY COUNT PATTERN IN PUNCH MODE (FULL SPEED) 

P3AAI MOV #512., RCNT ISET CHARACTER COUNT TO 512 

JSR X7,PFRNT |GO PUNCH FRONT END, 

JSR XTrlNBIN UNITIALIZE SPECIAL BINARY COUNT 

P3ABI JSR X7,GTBIN |GET BINARY CHARACTER 

JSR X7,LSPCH |GO PUNCH THE CHARACTER 

DEC RCNT IDECREMENT CHAR COUNT, 

BNE P3AB IBRANCH IF COUNT NOT YET YET, 

JSR X7,PLTLR IPUNCH TRAILER, 

JSR X7,PCHECK ICHECK DATA PUNCHED, 

SCOPE ISCOPE 



011656 012767 177760 171706 



|ft * *ftftftftftftftftft**ftftftAft*ft«ftftft*«ftftftftft ftftftft*ft*ft*ftft«ftftftftftft*ftftftftftftftftft«ftftft«»*ftftftftft 

I PRG3 TEST ROUTINE 1 * 

IADDRESS OF NEXT ROUTINE ft 

ITEST ITERATION COUNT ft 

ISCOPE ENTRY POINT ft 

ftft*ftftftftftftft«ftftftftftft«ftftftftftftftft«ftft«ftftftftftft«,ftft«ftft«ftftft ft ftft A ftft A ft ftA ft ft « 

BINARY COUNT PATTERN IN PUNCH MODE 1 (RANDOM STALLS AFTER 

CHARACTER.) 

ISET CHARACTER COUNT TO 512. 

IGQ PUNCH FRONT END, 

UNITIALIZE SPECIAL BINARY COUNT, 

IGET BINARY CHARACTER, 

IGO PUNCH THE CHARACTER, 

IRANDOM STALL, 

IDECREMENT CHAR COUNT, 

IBRANCH IF COUNT NOT YET 0, 

IPUNCH TRAILER, 

ICHECK DATA PUNCHED, 

ISCOPE 

ftftftftAftftftftAftftftAftftftftftftftftftftftftftftftftftftftftftftftftftftftftjUft^ft^ft^^ft^A^^j) 

I PRG3 TEST ROUTINE 2 
IADDRESS OF NEXT ROUTINE 
ITEST ITERATION COUNT 
ISCOPE ENTRY POINT 

«ftftftft*ft*ftftftftft**ftftft«ft***ftftft«ftft«ftftftft«ftftftftftftftftftftftftftftft«ftftftfta 

BINARY COUNT PATTERN IN PUNCH MODE 2, 
BEFORE PUNCHING RANDOM LENGTH GROUP OF CHARACTERS), 
LENGTHl 15) 
#177760,RCM3K ISET CHAR GROUP MASK FOR 17C8) MAX), 



P3T1I 1 

P3T2 
5 

P3BA 
|ftftftftftftftftftftft«[ft 
IPUNCH SPECIAL 
IPUNCHING EACH 
P3BAI MOV 
JSR 
JSR 
P3BBI JSR 
JSR 
STALL 
DEC 
BNE 
JSR 
JSR 
SCOPE 
}ftft*ftftftftttftftft*ft 
P3T2I 2 

P3TLST 
S 

P3CA 
Iftftftftftftftftftftftftft 
IPUNCH SPECIAL 
I (RANDOM STALL 
IMAXIMUM GROUP 
MOV 



#312,, RCNT 

X7,PFRNT 

X7,ZNBIN 

X7#GTBIN 

X7,L3PCH 

RCNT 
P3BB 

X7,PLTLR 
X7,PCHECK 
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assg 
2343 

2844 
2843 
2846 
2847 
2848 
2849 
2830 
2891 
2892 
2833 
2854 
2895 
2896 
2837 
2898 
2859 
2860 
2861 
2862 
2863 
2864 
2865 
2866 
2867 
2868 
2869 
2870 
2871 
2872 
2873 
287(1 
287S 
2876 
2877 
2878 
2679 
2880 
2881 
2882 
2883 



011664 
011672 
011676 
011702 
011706 
011710 
011714 
311720 
011724 
011726 
011732 
011734 
011736 
011742 
011746 

011730 
0U7S4 
011760 
011764 
011766 
011774 
012000 
012004 
012010 
012012 
012014 
012022 
012026 
012034 
012036 
012042 
012044 
012046 
012050 
012054 
012062 
012066 
012072 
012076 
012100 
012104 
012106 



012767 
004767 
004767 
004767 
104002 
004767 
004767 
003367 
001404 
003367 
001366 
000762 
004767 
004767 
104012 

004767 
012700 
004767 
000207 
012767 
012700 
004767 
005367 
001371 
000207 
012767 
004767 
122767 
001405 
005367 
001367 
104010 
000762 
004767 
012767 
004767 
004767 
110067 
104004 
005367 
001366 
000207 



@01@§f 
000032 
172124 
171644 

172150 
172436 
167436 

171642 



000024 
000046 



000012 
000377 
172412 

000106 
000177 
172372 
167374 



000226 
170544 
000377 



171732 
001000 
170504 
171772 
167267 

167300 



167470 PICA! 

PSCBi 

piee^ 



IRQUTI 
PPRNT 



MOV 

jsr 

JSR 
JSR 
STALL 
JSR 
JSR 
DEC 
BEQ 
DEC 
BNE 
8R 
JSR 
JSR 
SCOPE 
NE TO PUNCH FRONT END, 



*918,,RCNY 
X7,PFP!N? 
X7,INBXN 
X7,@RCN? 

X7,GTBIN 

X7,L8PCH 

RCNT 

P3CD 

RNCNT 

P3CC 

PSCB 

X7,PLTLR 

X7,PCHECK 



167410 PLTLR* 
PLTRAl 



167362 PCHECK! 

PCHKAI 
167330 



JSR 

MOV 

JSR 

RTS 

MOV 

MOV 

JSR 

DEC 

BNE 

RTS 

MOV 

JSR 

CMPB 

BEQ 

DEC 

BNE 

EHALT 

BR 

JSR 

MOV 

JSR 

JSR 

MOVB 

DATCHK 

DEC 

BNE 

RTS 



XT,PLTLR 
#377,X0 

X7,LSPCH 

X7 

#70,, CTRA 

#177, X0 

X7fU8PCH 

CTRA 

PtTRA 

X7 

#130,, CTRA 

X7, BREAD 

#377, CRBUF 

PCHKB 

CTRA 

PCHKA 

PCMECK 
X7,JNBZN 
#512,, CTRA 
X7, BREAD 
X7,GTBIN 
%0,CRBUF+i 

CTRA 

PCHKC 

X7 



HIT CHAftACTIft COUNT TO ill* 
180 PUNCH FRONT END, 

nnnihizu ipecial binary count, 

IG6NERATS RANDOM CHARACTER COUNT 

IRANDOM STALL, 

IU1 BINARY CHARACTER, 

CRUNCH THE CHARACTERS 

rDECREMENT CHAR COUNT 

IBRANCH IF COUNT IS 0* 

|NOT 0, DECREMENT RANDOM CHAR COUNT, 

IBRANCH IF COUNT NOT TIT 0, 

IBRANCH IF COUNT 0, 

IPUNCH TRAILER, 

ICHECK DATA PUNCHEB 8 

ISCOPE, 

IPUNCH LEADER 

JPUNCH SVNC CHARACTER 9 (RUBOUT) 

IEXIT. 

J3ET CTRA TO 70 e 

IPUNCH CODE S77 FOR LEADER/TRAILER 

fPUNCHED 70? 

IBRANCH IF NOT YET 70 9 

IDONE EXIT. 

ISET SYNC COUNT TO 130, 

|READ CHARACTER 

IIS IT SYNC CHARACTERf (377) 

IBRANCH IF SYNC CHAR FOUND, 

INOT POUND, DECREMENT CTRA, 

IBRANCH IF NOT 130 CHARS READ YET, 

1150 CHARS READ AND NO SYNC, HALT, 

ITRY A6AIN, 

UNITIALIZE BINARY COUNT. 

ISET CHARACTER COUNT TO 312, 

IREAD CHARACTER, 

IGET BINARY COUNT CHARACTER, 

ICOMPARE CHARACTERS, 

1512 CHARS READ? 

IBRANCH IF NOT 512 CHARS YET, 

IEXIT, 



8 MAIN, 
DZKLAE 

2884 
2885 
2886 
2887 
2888 
2889 
2890 
2891 
2892 
2893 
2894 
2895 
2896 
2897 
2898 
2899 
2900 
2901 
2902 
2903 
2904 
2905 
2906 
2907 
2908 
2909 
2910 
29U 
2912 
2913 
2914 
2915 
2916 
2917 
2918 
2919 
2920 
2921 
2922 
2923 
2924 
2925 
2926 
2927 
2928 
2929 
2930 
2931 
2932 
2933 
2934 
2935 
2936 
2937 
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012110 
012116 
012124 
012126 
012130 

012134 
012136 



012140 
012146 
012150 
012152 
012154 
012156 
012164 
012170 
012172 
012174 
012176 
012200 
012202 
012204 
012210 
012212 
012214 
012216 
012220 
012224 
012226 
012230 
012234 
012236 

012240 
012242 



012244 
012246 
012230 
012254 
012256 
012264 
012272 
012276 
012300 
012306 
012314 
012316 



177777 
012767 
052767 

104000 
014567 
000167 



012767 
104006 
012204 
104000 
014605 
052777 
003067 
104024 
023420 
104000 
015007 
104010 
000411 
105777 
100403 
104000 
015035 
104010 
012716 
000002 
104011 
005367 
001344 
104012 

1 



104000 
014645 
105777 
100375 
117767 
116777 
105777 
100375 
042767 
122767 
001353 
104012 



167116 
167124 



.SBTTL 

ZM 

X*»l 

MOV 

BIS 

TYPE 

KMSG1 

JMP 



PRG4-KEYB0ARD TEST 



#P4T0,K3TART 
#BIT7,PRGID 



SRSET 



000005 167236 



0100 167024 



P4T0J | PRQ4 TEST ROUTINE * 

P4T1 IADDRESS OF NEXT ROUTINE ft 

THAT PRESSING KEY SETS DONE FLAG, 



I**** 
ITEST 



012226 
167150 



E.T0CI 
ET0CAI 



MOV 

STRDRV 

ET0B 

TYPE 

KMSG2 

BIS 

CLR 

DELAY 

10000. 

TYPE 

KMSG6 

EHALT 

BR 

TSTB 

BMI 

TYPE 

KMSG7 

EHALT 

MOV 

RTI 

SRESET 

DEC 

BNE 

SCOPE 



#5, CTRA 



#BIT6,#TK3 
PSW 



ET0CA 

*TKS 

ET0C 



#ET0CA,t»%6 



CTRA 
ET0A 



ITYPE "PRESS A KEY WITHIN 10 3EC3," 

IENA0LE KYBD INTERRUPT, 

IWAIT 10 SECONDS 

ITYPE "NO KEYBOARD REQUEST." 

IHALT, 

ITEST FOR DONE BIT ON 

IBRANCH IF DONE BIT SET, 

IDONE BIT NOT SET. TYPSlFALSE KEY- 

IBOARO OR READER INTERRUPT, 

IHALT 

IEXIT INTERRUPT. 

IDONE 5 TIMES? 
IBRANCH IF NOT DONE, 
ISCOPE 



166730 
167074 
166716 

000200 
000177 



167100 
166724 



167036 
167050 



P4T1I 1 | PRG4 TEST ROUTINE 1 * 

P4T2 IADDRESS OF NEXT ROUTINE * 

IECHO TEST. KEYED CHARACTER IS TYPED, RUBOUT ENDS ROUTINE, 

TYPE ITYPE TITLE AND INSTRUCTIONS, 

KM3G3 

IWAIT FOR DONE FLAG 

IMOVE KYBD CHAR TO CRBUF, 

IECHO CHAR READ, 

IWAIT FOR PRINTER DONE, 

ICLEAR BIT 7 FROM CRBUF, 
ICOMPARE CRBUF TO RUBOUT Cl?7) 
IBRANCH IF NOT RUBOUT (1775 
ISCOPE 



TSTB 


*TK3 


BPL 


.»4 


MOVB 


#TKB, CRBUF 


MOVB 


CRBUF, #TPB 


TSTB 


#TP8 


BPL 


»»4 


BIC 


#BIT7, CRBUF 


CMPB 


#177, CRBUF 


BNE 


ETIA 


SCOPE 





fi MAIN, 
DfKUI 

2938 
2939 
2940 
1941 
8942 
1943 
294* 
2943 
2946 
294? 

g94a 

2949 

2930 
2931 
2952 
2933 
2954 
2955 
2956 
293T 
2958 
2959 
2960 
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011320 
012322 



012324 
012326 

012330 
012332 
012334 
012340 
012344 
012346 
012334 
012360 
012362 
012364 
012366 
012370 
012376 

01240a 

012406 



000002 
177777 



104001 
014747 
014660 
177777 
005067 



P4T1S 



P4TLST 



I PR84 TEST ROUTINE 2 
IADDRE38 OF NEXT ROUTINE 



IOCTAL E9UIVALENT TEST, THE OCTAL 
128 PRINTED, RU80UT ENDS ROUTINE, 
TYPES 



167024 
105777 166644 
100375 

117767 166640 
004367 171646 
001364 
015001 
104000 
014777 

042767 000200 
022767 000177 
001355 
104012 



167010 



166766 
166760 



KMSG3A 




»i 




CUR 


CRBUF 


TSTB 


#TKS 


BPL 


B «4 


MOVB 


*TKB, CRBUF 


JSR 


*3,ACNV4 


CRBUF 




OCTEQV 




TYPE 




KM3G5 




BIC 


#BIT7, CRBUF 


CMP 


#177, CRBUF 


BNE 


ET2A 


SCOPE 





EQUIVALENT OF ANY CHARACTER KEYED 

HYPE TITLE AND IN8TRUCTI0N8 a 



IWAIT FOR DONE FLAG, 

^CHARACTER TO CRBUF 
ICONVERT CHAR IN CRBUF TO 
7PRINTABLI OCTAL 

ITYPE OCTAL EQUIVALENT 

ICLEAR BIT 7 PROM CRBUF 
ITE8T FOR RUBOUT CHARACTER S 
IBRANCH IF NOT RUBOUT (177), 

ISCOPEa 



.MAIN, MACY 1 1 27(6573 17-NQV-75 14106 PAGE 63 
DZKLAE PRG5 COMBINED TEST 



2961 












.SBTTL 


PRG5 COMBINED ' 


2962 


012410 


10a005 






PRG5I 


CHALT 




2963 


012412 


004767 


17221a 






JSR 


X7,STBF 


296a 


012416 


052767 


040000 


16662a 




BIS 


#BIT14,PRGID 


2965 


012a2a 


012767 


177600 


170552 




MOV 


#177600 I STLM3K 


2966 


012432 


005067 


000054 






CLR 


PCHCNT 


2967 


012436 


005067 


000046 






CLR 


RBUSY 


2966 


012442 


104006 








STRDRV 




2969 


012444 


013064 








RZERO 




2970 


012446 


104007 








STPCHV 




2971 


012450 


012734 








PCHOAT 




2972 


012452 


012767 


000241 


000612 




MOV 


#241,SEED0 


2973 


012460 


004767 


00057a 






JSR 


X7,INIT0 


297a 


012464 


012767 


000077 


166714 




MOV 


#63.,CTRB 


2975 


012472 


112377 


166520 






MOVB 


C3)+,#TPB 


2976 


012476 


052777 


000100 


166510 




BIS 


#BIT6,#TPS 


2977 


012504 


104400 








DELAYX 




2978 


012506 


000776 








BR 


,«2 


2979 


012510 


000000 






RBUSY5 


OPEN 




2980 


012512 


000000 






PCHCNTI 


OPEN 




2981 


012514 


105777 


166474 




TSTPCHI 


TSTB 


PTPS 


2982 


012520 


100401 








BMI 


, + 4 


2983 


012522 


104010 








EHALT 




2984 


01252a 


005267 


177762 






INC 


PCHCNT 


2985 


012530 


000207 








RTS 


%7 


2986 


012532 


026727 


177754 


000024 


PCONTt 


CMP 


PCHCNT, #20, 


2987 


012540 


103424 








BLO 


PCONTC 


2988 


0125a2 


105767 


177742 






TSTB 


RBUSY 


2989 


0125a6 


100406 








BMI 


PCONTA 


2990 


012550 


052767 


000200 


177732 




BIS 


#BIT7, RBUSY 


2991 


012556 


052777 


000101 


166424 




BIS 


0101, ?TKS 


2992 


01256a 


026727 


177722 


000050 


PCONTAI 


CMP 


PCHCNT, #40, 


2993 


012572 


I0ia02 








BLOS 


PCONTB 


299a 


01257a 


005077 


166414 






CLR 


#TPS 


2995 


012600 


032777 


000400 


165366 


PCONTBJ 


BIT 


#BIT8,#SRPTR 


2996 


012606 


001001 








BNE 


PCONTC 


2997 


012610 


I0a002 








STALL 




2998 


012612 


112377 


166400 




PCONTCI 


MOVB 


C3)*,*TPB 


2999 


012616 


000002 








RTI 




3000 


012620 


105777 


166364 




TSTRORI 


TSTB 


#TKS 


3001 


01262a 


100a0i 








BMI 


,+a 


3002 


012626 


104010 








EHALT 




3003 


012630 


117767 


166356 


166526 




MOVB 


PTKB, CRBUF 


3004 


012636 


005367 


177650 






DEC 


PCHCNT 


3005 


0126a2 


000207 








RTS 


%7 


3006 


01264a 


005767 


177642 




RCONT! 


T8T 


PCHCNT 


3007 


012650 


001006 








BNE 


RCONTA 


3008 


012652 


042767 


000200 


177630 




BIC 


#BIT7, RBUSY 


3009 


012660 


005077 


166324 






CLR 


*TK8 


3010 


01266a 


000002 








RTI 




3011 


012666 


026727 


177620 


000024 


RCONTAI 


CMP 


PCHCNT, #20. 


3012 


01267a 


101014 








BHI 


RCONTC 


3013 


012676 


032777 


000100 


166310 




BIT 


#BIT6,#TP8 


3014 


012704 


001003 








BNE 


RCONTB 



J3ETUP HALT. 

ISETUP BUFFER 

IALLOW STALLS, 

ISETMAX STALL TO 255 MSECS, 



|SET READER SERVICE TO RZERO. 
|SET PUNCH SERVICE TO PCHDAT, 
UNITIALIZE PUNCH 



JPUNCH FIRST CHAR 9 

IENABLE PUNCH INTERRUPT. 

ISTALL WHILE AWAITING INTERRUPTS, 

JBACK 70 WAIT, 



rCHECK FOR DONE, 

IBRANCH IF DONE SET, 

;NOT DONE. FALSE INTERRUPT. 

^INCREMENT PUNCH COUNT, 

lEXIT, 

ICHECK PUNCH COUNT, 

IBRANCH IF LESS THAN 20, 

JREADER BUSY7 

IBRANCH IF READER BUSY, 

INOT BUSY, SET IT BUSY, 

IENABLE READER AND INTERRUPT, 

IRECHECK PUNCH COUNT, 

IBRANCH IF EQUAL OR LESS THAN 40, 

IDISABLE PUNCH INTERRUPT, 

FCHECK FOR FULL SPEED RUN, 

IBRANCH IF FULL SPEED DESIRED, 

|G0 STALL, 

ILOAD PUNCH BUFFER, 

lEXIT INTERRUPT, 

ICHECK FOR READER DONE, 

IBRANCH IF DONE SET. 

INOT DONE, FALSE INTERRUPT. 

ICHECK READ TO CRBUF, 

IDECREMENT PUNCH COUNT. 

lEXIT, 

ITEST PUNCH COUNT. 

IBRANCH IF COUNT NOT 0, 

ICOUNT 0, CLEAR RBUSY, 

ICLEAR READER INTERRUPT ENABLE, 

IEXIT INTERRUPT 

ICOUNT LARGER THAN 20? 

IBRANCH IF COUNT LARGER THAN 20, 

INOT LARGER. PUNCH INTERRUPT ENABLED? 

IBRANCH IF ENABLED. 
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DZKUI 


PRG5 COMBINED TEST 










3015 


011706 


032777 


000101 


166300 




SIS 


#BIT6,?TPS 


3216 


012714 


S32777 


000400 


165132 


rcontbi 


BIT 


iBIT8,iSRPTR 


301? 


012722 


001001 








BNE 


RCONTC 


3018 


013724 


104026 








RSTALL 




3019 


012726 


005277 


166136 




RCONTCI 


INC 


#TK8 


3030 


012732 


000002 








RTI 




3031 


012734 


004767 


177554 




PCHDATi 


J3R 


%7,TSTPCH 


3032 


012740 


005367 


166440 






DEC 


CTRA 


3023 


012744 


001273 








BNg 


PCONT 


303^ 


012746 


005367 


166434 






DEC 


CTRB 


3025 


012752 


001405 








SEQ 


PCHDTA 


3026 


012754 


005267 


000312 






INC 


SEED0 


3027 


012760 


004767 


000274 






JSR 


X7,INIT0 


3023 


012764 


000662 








BR 


PCONT 


3029 


012766 


10506? 


003152 




PCMDTAi 


CURB 


BLOCK1 


3030 


012772 


004367 


171342 






J3R 


S3, SHOVE 


3031 


012776 


015144 








BLOCK! 




3032 


013000 


013143 








BLOCK!* 


1 


3033 


013002 


000107 








71, 




3034 


013004 


012703 


015142 






MOV 


#3L0CKA,%3 


3035 


013010 


01276T 


000024 


166366 




MOV 


#30,, CTRA 


3036 


013016 


104007 








8TPCHV 




303? 


013020 


013024 








PCHZER 




3038 


013022 


000643 








BR 


PCONT 


3039 


013024 


004767 


177464 




PCHZERI 


J3R 


X7,T8TPCH 


3040 


013030 


00536? 


166350 






DEC 


CTRA 


3041 


013034 


001236 








BNE 


PCONT 


3042 


013036 


012767 


000241 


000236 




MOV 


#241,SEED0 


3043 


013044 


004767 


000210 






J3R 


X7,INIT0 


3044 


013030 


012767 


000077 


166330 




MOV 


#63,»CTRB 


3045 


013056 


104007 








3TPCHV 




3046 


013060 


012734 








PCHDAT 




3047 


013062 


000623 








BR 


PCONT 


3043 


013064 


004767 


177330 




RZEROI 


JSR 


X7,TSTRDR 


3049 


013070 


105767 


166270 






T3TB 


CRBUF 


3050 


013074 


001663 








BEQ 


RCONT 


3051 


013076 


004767 


000002 






JSR 


%7,RZERA 


3052 


013102 


000415 








BR 


RDATA 


3053 


013104 


012767 


000241 


000204 


RZERAI 


MOV 


#241,SEED1 


3054 


013112 


004767 


000166 






JSR 


XTiXNXTl 


3055 


013116 


012767 


000077 


166266 




MOV 


#63,,CTRD 


3056 


013124 


104006 








STRORV 




3057 


013126 


013132 








RDAT 




3058 


013130 


000207 








RTS 


%7 


3059 


013132 


004767 


177462 




RDATI 


JSR 


X7,T3TRDR 


3060 


013136 


112467 


166223 




RDATAI 


MOVB 


C4)*,CRBUF*1 


3061 


013142 


104004 








DATCHK 




3062 


013144 


005367 


166240 






DEC 


CTRC 


3063 


013150 


001235 








BNE 


RCONT 


3064 


013152 


005367 


166234 






DEC 


CTRD 


3065 


013156 


001405 








BEQ 


RDATB 


3066 


013160 


005267 


000132 






INC 


SEED1 


3067 


013164 


00476? 


000114 






JSR 


X7 f INIT1 


3068 


013170 


000625 








BR 


RCONT 



/ENABLE PUNCH INTERRUPTS. 

SCHICK FOR PULL SPIED RUN* 

/BRANCH IF FULL SPIED DESIRED, 

/GO STALL, 

/ENABLE READER, 

/EXIT INTERRUPT, 

/CHECK PUNCH, 

/7« CHARS OUTPUTTEDf 

/BRANCH IF NOT, 

/63 LINES OUTPUTTEDf 

/BRANCH IF YES, 

/NO. SETUP FOR NEXT LINE, 

/SETUP LINE, 74 TO CTRA 

/CONTINUE, 

I? Ill PUNCH BUFFER WITH ZEROES* 



/PUNCH BUFFER ADDRESS TO R3 e 

/SET CHAR COUNT TO 20, 

/SET PUNCH SERVICE TO PCHZER, 

/CONTINUE, 

/CHECK PUNCH, 

/ALL CHARS OUTPUTTED? 

/BRANCH IF NOT s 

/YES 

/SETUP LINE, 74 TO CTRA 

/SET LINE COUNT TO 63 

/SET PUNCH SERVICE TO PCHDAT B 

/CONTINUE, 

/CHECK READER, 

/TEST CHARACTER READ, 

/BRANCH IF 0, 

/SET UP TO READ DATA, 

/SET UP LINE, 74 TO CTRC 

/SET LINE COUNT TO 63, 

/SET READER SERVICE TO RDAT, 

/EXIT 

/CHECK READER, 

/MOVE EXPECTED CHAR TO CRBUF#1 

/CHECK DATA, 

Z74 CHARACTERS CHECKED? 

/BRANCH IF NOT, 

Z63 LINES CHECKED? 

/BRANCH IF YES, 

/NO, SETUP NEXT LINE AND 

/74 TO CTRC, 

/CONTINUE, 



.MAIN, 


MACYtl 


27C657J 


17-N0V- 


75 14106 PAGE 


65 




DZKLAE 


PRG5 COMBINED TEST 








3069 


013172 


105067 


002060 


RDATB! 


CLRB 


BLOCK2 


3070 


013176 


004567 


171136 




JSR 


X5,6M0VE 


3071 


013202 


015256 






BL0CK2 




3072 


013204 


015257 






BL0CK2+ 


1 


3073 


013206 


000107 






71, 




3074 


013210 


012704 


015254 




MOV 


#BLOCKB,X4 


3075 


013214 


012767 


000024 


166166 


MOV 


#20,, CTRC 


3076 


013222 


104006 






STRDRV 




3077 


013224 


013230 






R20ZER 




3078 


013226 


000606 




RDATCI 


BR 


RCONT 


3079 


013230 


004767 


177364 


R20ZER3 


JSR 


X7,TSTRDR 


3060 


013234 


112467 


166125 




MOVB 


C4)*,CRBUF*1 


3081 


013240 


104004 






DATCHK 




3082 


013242 


005367 


166142 




DEC 


CTRC 


3083 


013246 


001367 






BNE 


RDATC 


3084 


013250 


004767 


177630 




JSR 


X7,RZERA 


3085 


013254 


000167 


177364 




JMP 


RCONT 


3086 


013260 


013703 


015142 


INIT0I 


MOV 


#BLOCKA,X3 


3087 


013264 


004567 


000040 




JSR 


X5,DTFL 


3088 


013270 


015144 






BLOCK1 




3089 


013272 


000000 




SEED0I 


OPEN 




3090 


013274 


012767 


000112 


166102 


MOV 


#74,, CTRA 


3091 


013302 


000207 






RTS 


X7 


3092 


013304 


012704 


015254 


INIT1I 


MOV 


#BL0CKB,X4 


3093 


013310 


004567 


000014 




JSR 


X5,DTFL 


3094 


013314 


015256 






BL0CK2 




3095 


013316 


000000 




SEED1I 


OPEN 




3096 


013320 


012767 


000112 


166062 


MOV 


#74,, CTRC 


309? 


013326 


000207 






RTS 


%7 


3098 


013330 


012502 




DTFLI 


MOV 


C5)+,X2 


3099 


013332 


012501 






MOV 


(5)+, XI 


3100 


013334 


012767 


000110 


166020 


MOV 


#72,, RCNT 


3101 


013342 


023701 


000340 


DTFLA! 


CMP 


#340, XI 


3102 


013346 


001002 






BNE 


DTFLB 


3103 


013350 


012701 


000241 




MOV 


#241, XI 


3104 


013334 


110122 




DTFLBI 


MOVB 


XI, C2)* 


3105 


013356 


005201 






INC 


XI 


3106 


013360 


005367 


165776 




DEC 


RCNT 


3107 


013364 


001366 






BNE 


DTFLA 


3103 


013366 


000205 






RTS 


X5 



/FILL READ BUFFER WITH ZEROES, 



/READ BUFFER ADDRESS TO R4 

/SET CHAR COUNT TO 20. 

/SET READER SERVICE TO R20ZER 

/CONTINUE, 

/CHECK READER 

/MOVE EXPECTED CHAR TO CRBUF+1 

/CHECK DATA, 

/ALL CHARS CHECKED? 

/BRANCH IF NOT, 

/SET UP TO READ DATA, 

/PUNCH BUFFER ADDRESS TO R3 
/FILL PUNCH BUFFER WITH DATA 
/STARTING WITH CHAR IN 3EED0 



/EXIT 

/READ BUFFER ADDRESS TO R4 
/FILL READ BUFFER WITH DATA 
/STARTING WITH A CHAR IN SEED1, 



/EXIT 

/STARTING ADDRESS TO R2, 

/SEED TO Rl, 

/CHAR COUNT TO RCNT, 

/(R13EQUAL 340? 

/BRANCH IF NOT, 

/EQUAL. RESET TO 241, 

/MOVE CHAR TO BUFFER 

/INCREMENT CR1), 

/BUFFER FULL? 

/BRANCH IF NOT, 

/YES, EXIT 



,HAIN, MACYll I7C&S7} 
DZKLAg MB*i MB7 



iy«N0V>71 Hills PA0I 44 



!!§§ 










3111 










3111 










3111 


111371 


011767 


177600 


167606 


3113 


§13171 


011767 


177761 


170166 


3114 


§13404 


052767 


040000 


165636 


3US 


§11411 


004767 


17088S 




3116 


013416 


004767 


170130 




Hi? 


811411 


031777 


0ii4ii 


164144 


SHS 


313430 


001001 






31H 


013431 


194002 






Hie 


013434 


004767 


167111 




3131 


013440 


004717 


170138 




3ii§ 


013444 


005367 


170114 




3123 


013450 


001371 






3124 


813431 


000761 






3131 










3 life 










Ha? 


01345a 


004767 


171154 




3133 


013460 


104000 






312§ 


013461 


015063 






3130 


§13464 


052767 


040000 


165356 


3131 


013471 


012767 


177600 


167504 


3131 


013500 


012701 


015144 




3133 


013504 


104000 






3134 


013306 


015111 






313S 


013510 


005777 


165476 




3136 


013514 


012767 


000006 


165662 


3137 


013522 


004767 


171360 




313S 


013526 


003367 


165632 




3139 


013532 


001373 






3140 


013534 


042767 


000200 


165622 


3141 


013542 


122767 


000177 


163614 


3142 


013550 


001013 






3143 


013552 


042767 


040000 


165470 


3144 


013560 


104015 






3145 


013562 


000406 






314& 


013564 


000567 


1705S0 




3147 


013570 


015144 






3143 


013572 


015151 






3J49 


013574 


000114 






3150 


013576 


000405 






3131 


013600 


004567 


170534 




3152 


013604 


015144 






3153 


013606 


015151 






3154 


013610 


000103 






3155 


013612 


004767 


170722 




3156 


013616 


005777 


164352 




3157 


013622 


100720 






3158 


013624 


000772 







8 SSTTL MOti FR87 

FPRi&«R|ADER EXERCXMR. SPECIAL BINARY COUNT PATTERN 
ISRliaHALT ON ERROR, SR14ei SYALL 9 SRllfi PULL WEED 



PRG6! 



MOV 

MOV 

SZ§ 

JSR 

JSR 

BIT 

BNg 

STALL 

JSR 

JSP 

DEC 

BNE 

BR 



#177601, SYLM8K 

$177760, RCM3K 

#BXT14,PRGXD 

I7,BSYNC 

S7,@RCNT 

#BXTI,*aPPTR 

GTS 

17, BREAD 
17,BCHECK 

RNeNT 

GTi 

GTA 



rSET STALL LIMIT 

HIT RANDOM CHARACTER LSMIT 9 

MLLOW STALLS, 

ISYNC READER, 

I8ENIRATI RANDOM CHAR COUNT., 

ICMECK FOR PULL SPEED RUN 

IBRANCH IP PULL SPIED DESIRED, 

JSYALL. 

fREAD CHARACTER 

JOO CHECK IT 

^DECREMENT CHAR COUNT 

ISRANCH IP COUNT NOT 9 

ICOUNT 0, START OVER 9 



IPRG7-PRINTER EXERCISER 9 KEYBOARD C0NTR0LLED 8 

ITYPI8 LXNES WITH ANY 5 CHARACTERS 9 STALLS OR FULL 3PEED g 



JSR 

TYPE 

P7MG1 

BIS 

MOV 

MOV 

TYPE 

P7MS2 

TST 

MOV 

JSR 

DEC 

BNE 

3IC 

CMPB 

BNE 

BIC 

CK37 

BR 

JSR 

BL0CK1 

BL0CK1*5 

76, 

BR HTD 

JSR %5,BM0VE 

BL0CK1 

BL0CK1*5 

*7, 

JSR X7,TYPLN 

TST #SRPTR 

BMI HTA 

BR HTD 



SS7,STBP 



#BIT14,PRGID 
#177600, 8TLMSK 
#BLQCK1,%3 



#TKB 

#6,CTRA 

X7,GKBCR 

CTRA 

HTB 

#BIT7,CRBUF 

*177,CRBUF 

HTC 

*BIT14,PRGID 

HTC 
%5,BM0VE 



|3EY UP BUFFER, 
ITYPI TITLE 

ISET STALL SIT IN PR8ID 9 
ISET STALL MASK, 

lYYPE "TYPE IN DATA« 9 

ICLEAR BUFFER, 

KHAR COUNT TO CTRA 8 

IGET AND STORE KYBO CHARACTER 8 

fGOT 6 CHARACTERS? 

IBRANCH IF NOT 6 CHARS YET, 

ICHECK 6TH CHAR FOR RUBOUT 8 

IBRANCH IF NOT A RUBOUT, 

IRUBOUT, CLEAR STALL BIT IN PRGID, 

137? 

|N0, 

IYE8 9 FILL Si CHAR LINE 9 



IPILL 72 CHAR LINE a 



ITYPE LINE, 

ICHANGE DATA? CSRlSai), 

lYE3 a 60 CHANGE DATA 

|N0 CONTINUE WITH SAME DATA, 



S MAIN, 
DZKLAE 

3159 
3160 
3161 
3162 
3163 
3164 
3165 
3166 
3167 
3163 
3169 
3170 
3171 
3172 
3173 
3174 
3J75 
3176 
3177 
3178 
3179 
3180 
3181 
3132 
3183 
3134 
3185 
3186 
3187 
3188 
3189 
3190 
3191 
3192 
3193 
3194 
3195 
3196 
3197 
3193 
3199 
3200 
3201 
3202 
3203 
3204 



MACY11 27(6573 17»NQV«75 14(06 PAGE 67 
PRG10, PRGU, PRG12 



013626 
013632 
013634 
013640 
013642 
013644 
013650 
013654 
013660 



013672 
013674 
013700 
013704 
013706 
013710 
013712 
0137ia 
013716 



012746 000024 



170156 
170210 
170516 



004767 
005316 
001374 
004767 
004767 
004767 
000773 



013662 104005 
013664 004767 

013670 000775 



104005 
004767 

017700 
000005 
000005 
000005 



000005 
000766 



000020 
165306 



013720 052777 000004 165266 

013726 117767 164242 000022 

013734 005767 000016 

013740 001002 

013742 005267 000010 

013746 117777 164223 165242 

013754 104024 

013756 000000 

013760 000207 



PRG10I 


MOV 


#20,,-C6 




CLR 


%d 


PRG10AI 


JSR 


X7,LSPCH 




DEC 


*X6 




BNE 


PRG10A 




JSR 


%7|INBIN 


PRG10BI 


JSR 


X7,GTBIN 




JSR 


X7,LSPCH 


1 
1 


BR 


PRG10B 



.SBTTL PRG10, PRGU, PRG12 
IPRG10, PUNCH SPECIAL BINARY COUNT PATTERN TEST TAPE 

IPUNCH 20 BLANK CHAR, LEADER 



UNITIALIZE SPECIAL BINARY COUNT 
IGET BINARY CHARACTER B 
IPUNCH CHARACTER 
IREPEAT, 



IPRG11-PUNCH CLOCK ADJUSTMENT ROUTINE, 

IOUTPUTS CHARACTER SET IN LEFT HALF OF 3R, AND 

ISTALLS FOR NUMBER OF MILLISECONDS SET IN RIGHT HALF OF SR 8 

PRGlll CHALT /HALT TO SET 8R. 

ITAJ JSR X7,C1U2 |G0 OUTPUT CHARACTER SET IN LEFT 

SR ITA IHALF OF SR AND STALL PER SR RIGHT. 

I 

IPRG12-READER CLOCK ADJUSTMENT ROUTINE, 

IPERFORMS SAME FUNCTION AS PRG11, AND IN ADDITION, 

IUSING THE PUNCH MAINTENANCE BIT, SHIFTS OUTPUT OF PUNCH 

ISHIFT REGISTER ONTO THE READER BUFFER, THE CONTENTS OF THE 

IREADER BUFFER ARE THEN "FIXED" ON THE CONSOLE DATA LIGHTS 

IBY ISSUING A RESeT WITH CONTENTS OF READER BUFFER LOADED IN R0 a 

PRG12: CHALT JHALT TO SET SR, 

JTAI JSR X7,C1112M |G0 OUTPUT CHARACTER FROM SR LEFT AND 

MOV #TKB,X0 ISTALL PER SR RIGHT, CTKB) TO R0, 

R ESET |«FIX« CTKB) IN DATA LIGHTS, 

RESET 

RESET 

RESET 

RESET 

BR 



I 



C1U2MI 
CU12I 



BIS 

MOVB 
TST 
BNE 
INC 
Clll2Af MOVB 
DELAY 

mi open 

RT3 



JTA 

#4,#TPS 

#3RPTR,XTY 

XTY 

C1U2A 

XTY 

#SRPTR*1,0TPB 



IREPEAT, 

ISET MAINTENANCE MODE CRUNCH), 
ISTALL COUNT TO XTY, 
IDISREGARD DELAY, 



ILOAD PUNCH BUFFER, 

IDELAY {APPROXIMATELY) THE NUMBER OF 

IMSECS, SPECIFIED AT SR RIGHT 

IEXIT 



B MAIN 9 MACYil 27(637) 
QU\,kg PRG13, prgi4 

3205 
3206 
3207 
3208 
3209 



17*N0V*7S &49§6 PASI 68 



,8BYTL PRB13, PR914 
|PR6n«MAXNTSNANCE HODS SIN CHARACTER DATA TEST, 
IWXTH MAINTENANCE MODE SET, OUTPUTS ONTO PUNCH SUFFER AND SACK ONTO 
JREADER SUPPER THE CHARACTER SET XN 8R LEFT, THE CHARACTER IN TNI 
IREADER SUPPER II COMPARED TO THE CHARACTER IN SR LEFT, IP THE a CHARACTERS 



a MAIN, 
OZKLAE 



MACYli 27(657) 
PRG13, PRG14 



17»NDV*7S 14106 PAGE 69 



|||||:|| 



3310 
3211 
3212 
3213 
3214 
3215 
3216 
3217 
3218 
3219 
3220 
3221 
3222 
3223 
3224 
3225 
3226 
3227 
3228 
3229 
3230 
3231 
3232 
3233 
3234 
3235 
3236 
3237 
3238 
3239 
3240 
3241 
3242 
3243 
3244 
3245 
3246 
3247 
3248 
3249 
3290 



IDISAGREE THE PROGRAM HALTS, THE DATA LIGHTS WILL THEN CONTAINl 

I 

ILIPT HALF! THE EXPECTED CHARACTER CSR LEPT), 



3762 104005 

3764 052777 

3772 105777 

3776 100375 



4006 
4014 



014034 
014042 
014046 
014054 
014062 
014070 
014076 
014100 
014102 
014106 
014110 
014114 
014120 
014124 
014130 
014132 
014140 
014142 
014146 
014150 
014134 
014156 



165216 



117767 164171 
116777 165353 



105777 165170 
4020 100375 
4022 117767 165164 
4030 104004 
4032 000754 



012767 
004767 
012767 
052767 
052777 
032777 
001001 
104002 
105777 
100375 
004767 
110167 
110177 
105777 
100373 
117767 
104004 
005737 
001745 
005367 
001342 
000167 



165106 

170016 
165245 
165072 
165060 

165054 

000042 

165230 

165670 



IRIGHT HALF* THE CHARACTER IN 
PRG13I CHALT 



165222 


KTAI 


BIS 


#4,»TP3 




KTBI 


TSTB 


PTPS 






BPL 


.-4 


165357 




MOVB 


PSRPTR+1»CRBUF+1 


165202 




MOVB 


CRBUF*i,#TPB 






TSTB 


PTKS 






BPL 


.-4 


165334 




MOVB 
OATCHK 


PTKBiCRBUF 






BR 


KTA 



002000 165342 PRG14I 

167760 

177600 167130 

040000 165166 

165124 

164076 



IPRG14-MAINTENANCE MODE SPECIAL 
^PERFORMS SAME OPERATION AS PRG 
IPATTERN IS USED. 



LTBl 



165224 



MOV 


•1024,,CTRA 


JSR 


X7,INBIN 


MOV 


#177600, STLMSK 


BIS 


«B!T14|PRGID 


BIS 


«4,»TPS 


BIT 


#BIT8,P3RPTR 


BNE 


LTB 


STALL 




TSTB 


PTPS 


BPL 


,•4 


JSR 


X7,GTBINP 


MOVB 


X1,CRBUP*1 


MOVB 


XltfTPB 


TSTB 


PTK8 


BPL 


• »4 


MOVB 


#TKB, CRBUP 


DATCHK 




T8T 


P#42 


BEQ 


LTA 


DEC 


CTRA 


BNE 


LTA 


JMP 


CHNC 



THE READER BUFFER, 
IHALT TO SET SR, 
ISET MAINTENANCE MODE, 
IWAJT FOR READY, 

IS/B CHAR TO CRBUP*!, 
IOUTPUT CHARACTER, 
FWAIT POR READER DONE FLAG S 

ICHAR READ TO CRBUP, 

|80 CHECK AGAINST S/B CHAR, 

IREPEAT, 

BINARY COUNT PATTERN DATA TEST, 
13, EXCEPT THAT SPECIAL BINARY COUNT 

|8ET UP FOR 1024 CHECKS, 

UNITIALIZE BINARY COUNT 

ISET STALL LIMIT 

JALLOW STALLS 

fSET MAINTENANCE MODE, 

ICHECK STALL SWITCH 

IBRANCH IP NO STALL WANTED 

I3TALL 

/WAIT FOR READY, 

IGET BIN CHARACTER, 
IMOVE TO S/B CHAR, 
IOUTPUT BIN CHARACTER, 
IWAXT POR READER DONE, 

ICHAR IN READ BUFFER TO CRBUP, 

IGO CHECK AGAINST S/B CHAR, 

ICHAXN OR AUTO ACCEPT? 

IBR IP NOT, 

IDONE REQUIRED TIMES? 

IBR IF NOT, 

IYE8, GO EXIT, 



8 MAIN 9 
DZKLAE 

SlSt 

11SI 
SIS3 
S3S« 
SISS 
38S6 
38S7 
3333 
383? 
3361 
38&1 
3163 
3363 
3364 
S2&5 
3366 
3867 
3268 
3269 
3370 
3371 
3373 
3273 
3274 
327S 
3276 
3377 
3278 
3279 
3250 
3281 
3282 
3283 
3284 
3285 
3286 
3287 
3288 
3289 
3290 
3291 
3292 
3293 
3294 
3295 
3296 
3297 
3298 
3299 
3300 
3301 
3302 
3303 
3304 



MACYU 17(637) 
PRS1S, M8I4 



J7*N0¥»7§ Uli6 PAgE 7§ 



§14161 
014161 
114178 
114173 
014176 
014201 
i!4304 
014307 
§14811 
014115 
§14230 
014223 
014226 
014331 
014334 
014237 
014242 
014345 
014250 
014253 
014236 
014361 
014264 
014267 
014272 
014275 
014300 
014306 
014314 
014322 
014326 
014334 
014337 
014341 
014346 
014347 
014353 
014360 
014363 
014366 
014374 
014402 
014410 
014416 
014417 
014424 
014432 
014440 
014445 
014432 
014460 
014464 
014472 
014500 



047 
017 
047 
103 
101 
104 
107 
111 
113 
120 
123 
126 
131 
061 
064 
067 
041 
044 
047 
032 
053 
072 
073 
100 
133 
377 
021445 
042324 



020040 

020040 

027440 

045 

055 

100 

055 

055 

044455 

134 

021445 

040511 

052105 

042524 

100 

045 

032110 

044507 

032123 

045 

042503 

022324 

021445 

043040 

042524 



137 
117 
113 

077 
1§1 
113 
US 
113 
116 
131 
134 
187 
132 
063 
065 
070 
043 
045 
050 
053 
036 
073 
076 
133 
136 
000 
040524 
052123 
020040 
040057 
020040 
100 
100 
026435 

026511 
026453 
100 
040040 
040503 
042507 
051125 
052123 

031043 
046440 
020116 
021445 
051443 
032040 
040043 
044314 
042505 
052123 



1 
3 
8 

1 
4 
7 
4 
7 
4 
7 
7 

020102 
021445 
020040 



A3SWP6I 

A! 

01 

@i 

Jl 

HI 

PI 

Si 

VI 

Yl 

ONE! 

FOUR! 

SEVENS 

C41I 

C44I 

C47I 

C52I 

C55I 

C72I 

C73I 

C1001 

C133I 

C377I 

TBTSTI 

TBMRK! 



020040 TBMRKI | 



CRLFt 

RM33AI 



RM33BS 
RM37AI 



051122 

051040 
020116 
021445 

043311 
051101 
042524 
100 
040520 
051505 

042516 
020104 
021445 



SPTSTC! 9 A8CII 
CRTSTI 9 A8CII 



BYTE §47,137,127,037,137,137 



1Y7I §47 



SYTI 
IYT1 

BYTE 
BYTE 
BYTE 
BYTI 
BYTI 
BYTI 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
A3CII 

ASCII 

A8CII 

ASCII 
ASCII 

ASCII 
ASCII 



101 
104 
107 
113 
115 
180 
183 
136 
131 
B61 
064 
067 
041 
044 
047 
993 
035 
073 
075 
100 
135 
377 



133,077,103,077,133 



ff X#TAB 



103 

106 
,111 

114 

117 

138 

133 

130 
,060 
,063 

066 

071 
,043 

046 
,051 

054 
,037 
,074 
,077 

134 

137 

377 
TESTX#» 

/*» 

/9» 









'X3CARRIAGE RETURN TESTX**' 



RMT3TI , ASCII 'X3RIGHT MARGIN TESTX## # 



SPT3TI 9 A3CII 
LFTSTI 9 A3CII 



8 X#SPACE TE8TX*»» 
*X#LINE PEED TE8TX*# a 



9 MAIN 9 


MACY11 


27(657) 


17»N0V« 


75 1410 


6 PAGE 


71 


DZKLAE 


PRG13, 


PRG14 










3305 


014506 


100 










3306 


014507 


045 


041443 


040510 


CMRTSTI 


9 A8CII 


3307 


014514 


040522 


052103 


051105 






3306 


014522 


052040 


051505 


051524 






3309 


014530 


021445 


100 








3310 


014533 


045 


053443 


051117 


WCPTSTI 


,ASCII 


3311 


014540 


052123 


041440 


051501 






3312 


014546 


020105 


040520 


052124 






3313 


014554 


051105 


020116 


042524 






3314 


014562 


052123 


021445 


100 






3315 


014567 


045 


045443 


041131 


KMSG1! 


.ASCII 


3316 


014574 


020104 


042524 


052123 






3317 


014602 


021445 


100 








3313 


014605 


045 


051120 


051505 


KMSG2I 


aASCII 


3319 


014612 


020123 


020101 


042513 






3320 


014620 


020131 


044527 


044124 






3321 


014626 


0471U 


030440 


020060 






3322 


014634 


042523 


047503 


042116 






3323 


014642 


027123 


100 








3324 


014645 


045 


042443 


044103 


KMSG3I 


.ASCII 


3325 


014652 


02(3117 


042524 


052123 






3326 


014660 


041445 


040510 


040322 


KMSG3AJ 


• ASCII 


3327 


014666 


052103 


051105 


045440 






3328 


014674 


054505 


042105 


053440 






3329 


014702 


046111 


020114 


042502 






3330 


014710 


052040 


050131 


042105 






3331 


014716 


056 










3332 


014717 


045 


052522 


047502 




.ASCII 


3333 


014724 


052125 


042440 


042116 






3334 


014732 


020123 


047522 


052125 






3335 


014740 


047111 


027105 


021445 






3336 


014746 


100 










3337 


014747 


045 


047443 


052103 


KMSG4I 


.ASCII 


3338 


014754 


046101 


042440 


052521 






3339 


014762 


0531U 


046101 


047105 






3340 


014770 


020124 


042524 


052123 






3341 


014776 


100 










3342 


014777 


045 


040 




KMSG51 


9 ASCII 


3343 


015001 


040 


020040 


022440 


OCTEQVI 


9 ASCII 


3344 


015006 


100 










3345 


015007 


045 


047516 


045440 


KMSG6I 


» ASCII 


3346 


015014 


054505 


047502 


051101 






3347 


015022 


020104 


042522 


052321 






3348 


015030 


051505 


027124 


100 






3349 


013035 


045 


040506 


031514 


KM8G7I 


9 ASCII 


3350 


013042 


020105 


054513 


042102 






3351 


015050 


044440 


053116 


031105 






3332 


015056 


052522 


052120 


100 






3353 


015063 


043 


050043 


044322 


P7MG1I 


*ASCII 


3354 


015070 


052116 


031103 


042440 






3355 


015076 


042530 


041522 


0315U 






3356 


015104 


051103 


021445 


100 






3357 


015111 


045 


032043 


050131 


P7MG2I 


• ASCII 


3358 


013116 


020105 


047111 


042040 







*X#CHARACTER TEST3X«# 8 
B X#W0RST CASE PATTERN TE8T%#®° 

'X#KYBD TESTX*#* 

'XPRESS A KEY WITHIN 10 SECONDS,?' 



'X#ECHO TEST' 

•XCHARACTER KEYED WILL BE TYPED,' 



'XRUBOUT ENDS ROUTINE a X#*' 



'XSOCTAL EQUIVALENT TEST® 9 



*XNO KEYBOARD REQUEST,,*' 



"XFALSE KYBO INTERRUPT*' 



»X#PRINTER EXERCISERX##' 



"XtSTYPE IN DATA I* 8 



9 MAIN 9 MACYU 27C6S7) 

OIKUAg PRgiJ, P3GH 

3399 0&31I4 052101 

3360 013133 020123 

3361 013133 340 
336g 013141 000001 



1?®N0V*?S 14i§6 PASI 71 



020101 

1S§ 

§§0040 



SKtui 9 A§en 

DICVALI e A§CSl 
DINOI »£ND 



#y $s 



.MAIN, 


MACY11 27(657) 


17*NQV« 


75 14306 
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DZKLAE 


SYMBOL TABLE 














A 


014176 


ACNV 


004264 


ACNVB 


004220 


ACNVC 


004246 


ACNVM 


004300 


ACNVX 


004262 


ACNV4 


004226 


ACNV6 


004200 


ADTENP 


004526 


AROB 


002412 


AREAO 


002364 


AT20E 


006052 


A1ST 


0042S4 


A33WP6 


014162 


A35WP6 


014170 


BCHECK 


003576 


BDCNV 


004420 


BDCNVA 


004440 


BELL ■ 


000007 


BZT0 9 


000001 


BIT! a 


000002 


BIT10 h 


002000 


BITil a 


004000 


BXT12 f 


010000 


BIT13 ■ 


020000 


BIT14 ■ 


040000 


BIT15 « 


100000 


BIT2 8 


000004 


BXT3 8 


000010 


BIT4 ■ 


000020 


BITS ■ 


000040 


BIT6 f 


000100 


BIT7 a 


000200 


BITS e 


000400 


BIT9 s 


001000 


BKSU 


015132 


BLKBB a 


015265 


BLKCC ■ 


015377 


BLK2 ■ 


013267 


BLOeKA? 


015142 


BLOCKS* 


015254 


BLOCKCb 


015366 


BLOCKlR 


015144 


BLOCK28 


015256 


BMOVA 


004350 


BMOVE 


004340 


BRCTR 


001414 


BREAD 


002572 


BREADA 


002620 


BREADS 


002632 


BREADC 


002652 


BREADD 


002662 


BSYNC 


003636 


CC * 


177776 


CHAINN 


001754 


CHALT a 


104005 


CMKASRh 


104022 


CHK33 


002210 


CHK33A 


002220 


CHK33B 


002224 


CHK35 


002226 


CHLT 


001422 


CHNA 


002004 


CHNAA 


002026 


CHNB 


002032 


CHNC 


002052 


CMRTST 


014507 


CHR1 


001366 


CHRJA 


001374 


CHR2 


001370 


CHR2A 


001376 


CHR3 


001372 


CHR3A 


001400 


CKASR 


002240 


CK33 « 


104013 


CK35 8 


104014 


CK37 «J 


104015 


CLEAN 


001654 


CNVCTR 


004520 


CPRDY 


004362 


CPRDYA 


004372 


CRBUF 


001364 


CRLF 


014337 


CRTA 


001612 


CRTB 


001634 


CRTST 


014366 


CTRA 


001404 


CTRB 


001406 


CTRC 


001410 


CTRD 


001412 


CT0A 


010124 


CT0B 


010134 


CT0C 


010142 


CT1A 


010252 


CT2A 


010310 


CT2B 


010330 


CT2C 


010336 


CT2D 


010360 


CT2E 


010416 


CT3A 


010464 


CT3B 


010514 


CT33A 


011344 


CT34A 


011426 


CT4A 


010550 


CT4B 


010562 


CURT3T 


001236 


C100 


014267 


cina 


013726 


C1U2A 


013746 


C1112M 


013720 


C135 


014272 


C377 


014275 


cai 


014242 


C44 


014243 


C47 


014250 


C52 


014233 


C5S 


014256 


C72 


014261 


C73 


014264 


D 


014201 


DATCMKo 


104004 


DATHLTs 


104017 


DECVAL 


015135 


DELAY a 


104024 


DELAY** 


104400 


OENO 


013142 


DIGIT 


004322 


DLCNT a 


003030 


DLY 


003046 


DLYA 


003070 


DLYB 


003076 


DLYR 


003304 


OLYR0 * 


003350 


DLYR1 a 


003362 


DLYT 


003144 


DLYX 


003344 


DLYXA 


003356 


DLYXB 


003364 


DTCHK 


001446 


DTCHKA 


001464 


DTFU 


013330 


DTFLA 


013342 


DTFLB 


013354 


DTHLT 


001456 


DVDND 


001416 


DVQUOT 


001420 


EMALT « 


104010 


EHLT 


001434 


EMTINT 


002170 


EMTTAB 


001304 


EMTX 8 


000027 


ERCTR 


001402 


ERR 


001466 


ERRA 


001306 


ERROR a 


104003 


ET0A 


012146 


ET0B 


012204 


ET0C 


012220 


ET0CA 


012226 


ET1A 


012250 


ET2A 


012340 


FBALL 


004746 


FBF3 


004702 


FBF3A 


004712 


FBF3B 


004720 


FORWD 


002112 


FORWDA 


00S144 


FORWDB 


002132 


FOUR 


014234 


FW336 


005006 


FWS56 


003046 


G 


014204 


GETRDY 


001646 


GKBCR 


005106 


GRCNT 


003552 


GTA 


013416 


GTB 


013434 


GTBZN 


004064 


GTBINP 


004132 


GTRDYA 


001676 


GTRDYB 


001702 


GTRDYC 


0S1716 


GTRDYD 


001740 


MERE 


002076 


HTA 


013464 


HTB 


013312 


HTC 


013600 


MTD 


013612 


ICTR 


S01244 


INBIN 


004026 


XNCPRG 


001606 


XNCRTN 


001750 


INIT0 


013260 


INIT1 


013304 


1TA 


013664 


J 


014207 


JTA 


013674 


KM3G1 


014367 


KMSSS 


014603 


KMSG3 


014645 


KM3GSA 


014660 


KMSG4 


014747 


KMSG3 


014777 


KM3G6 


015007 


KMSG7 


015035 


K3TART 


001234 


KTA 


013764 


KTB 


013772 


LFT3T 


014464 


LOGIC 


002062 


L3PCH 


004376 


LTA 


014062 


LTB 


014102 


M 


014212 


MACHER 


000004 


MANUALS 


100000 



8 8A!N e M&mi STC**?) 

QUim IYHBQI TAILS 



HSEC 1 
ONE 

pchcny 

PCHKA 

peH?g?i 

PSONTC 
PLTRA 
PRGNUM 
PR§1@ 
PROU 
PR6S 
PRS7 
PRTY3 > 
Pf?TY7 « 
PTI 
P0AAB 
P0BAA 
P0CAA 
P0CAP 
P0DAC 
P0EA8 
P0FA 
P0GAB 
P0IA 
P0KAA 
P0MA 
P0OA 
P0GA 
P0RA 
P0T0 
P0T12 
P0T16 
P0T2J 
P0T2I 
P0T30 
P0T34 
P0T4 
P0T43 
P0UA 
P0YA 
P1BA 
PiT0 
P2T0 
P2T12 
P2T16 
P2T21 
P2T25 
P2T30 
P2T34 
P2T7 
P3BB 
■P3CD 
P3T2 
P4T2 



§is§7i 

§14131 
011111 

§12021 

§13014 

iiiiia 

011T74 

301131 

§13671 
011462 
013414 
000140 
000340 
0040S4 
007020 
007046 
007116 
007174 
0072S2 
007322 
003416 
007466 
005344 
007630 
00S760 
006102 
006242 
006344 
003136 
005622 
006056 
006326 
006562 
006670 
007106 
005316 
007620 
006536 
006700 
007750 
007T06 
010060 
011020 
011070 
011126 
011176 
011234 
011400 
010762 
011614 
011736 
011646 
012320 



!? b nqvs 


»?i 14116 


PAil 74 




NOP 1 


! §§§140 


N5CT3T 


§01141 


QPIN i 


i §§§§§§ 


P 


§14113 


PCHOAT 


i|§734 


PeHOTA 


§11766 


PCHK3 


011030 


PGHKC 


012062 


P»eON? 


siasss 


PCONTA 


§13364 


PFRNT 


011730 


PIND 


§§4036 


P0P3P l 


§§3716 


POPIPli 


f §22626 


PB0TAB 


001132 


PR30 


003144 


PR610A 


013634 


P8S10B 


013630 


PR GO 


013761 


PBS14 


§14034 


MS4 


§11110 


PRG3 


§12410 


PRTY0 9 


§00000 


PRTYl ■ 


i 000040 


PRTY4 i 


0§§200 


PRTYS i 


i 000240 


PSN i 


177776 


PT0 


0S4052 


PTJP 


§34062 


P0AA 


005174 


P0AAE 


007S26 


P0AE 


003202 


P0BAC 


007100 


P0BE 


§05232 


P0CAC 


007152 


P0CAD 


007166 


P0CE 


003262 


P0DA 


003304 


P0DE 


005312 


P0EA 


003334 


P0EAC 


007332 


P0EB 


005336 


P0PAA 


007354 


P06A 


005454 


P0HA 


005516 


P0HAA 


007506 


P0JA 


005600 


P0JAA 


007600 


P0HB 


005642 


P0KC 


003662 


P0MB 


006004 


P0NA 


006032 


P0QE 


006132 


P0PA 


006162 


P0QC 


006276 


P0QD 


006311 


P03A 


006426 


P0TA 


006462 


P0T1 


005206 


P0T10 


005530 


P0T13 


005664 


P0T14 


005732 


P0T17 


006136 


P072 


005236 


P0T22 


006410 


P0T23 


006452 


P0T26 


006604 


P0T27 


006634 


P0T31 


006722 


P0T32 


006762 


P0T35 


007202 


P0T36 


007260 


P0T40 


007402 


P0T41 


007472 


P0T5 


005400 


P0T6 


005442 


P0VA 


006572 


P0WA 


006614 


P0ZA 


006736 


P0ZB 


006760 


PICA 


010000 


PiCC 


010006 


P1T1 


007734 


P1T2 


007764 


P2T1 


010206 


P2T10 


010774 


P2T13 


011032 


P2T14 


011044 


P2T17 


011102 


P2T2 


010272 


P2T22 


011140 


P2T23 


011152 


P2T26 


011210 


P2T27 


011222 


P2T31 


011246 


P2T32 


011260 


P2T4 


010520 


P2T5 


010732 


P3AA 


011520 


P3AB 


011536 


P3CA 


011664 


P3CB 


011702 


P3TLST8 


177777 


P3T0 


011510 


P4TLSTs 


177777 


P4T0 


012134 


P7MG1 


015063 


P7MG2 


015111 



oeYisv 


§110§i 


PC ■ 


i!§9§§§7 


P6HEEK 


§12014 


PCHKD 


§11100 


PC0NT3 


013600 


pltlb 


§11766 


PBGID 


001SS0 


PRGi 


007632 


MSU 


§13661 


prgi 


010026 


PBS6 


§13379 


PRTY2 § 


000100 


PR7Y6 P 


§90300 


PT0P 


§04060 


P0AAA 


006776 


P0BA 


005224 


P0CA 


003254 


P0CAE 


007172 


P0OAA 


007216 


P0EAA 


007276 


P0EC 


§03376 


P0CAA 


007416 


P0HAB 


007564 


P0KA 


005634 


P0LA 


005676 


P0NC 


006054 


P0PB 


006214 


P0QE 


006316 


P0TU3T8 


177777 


P0T11 


005364 


P0T15 


006006 


P0T20 


006222 


P0T24 


006526 


P0T3 


005266 


P0T33 


007032 


P0T37 


007342 


P0T42 


007570 


P0T7 


005476 


P0XA 


006644 


P1AA 


007722 


P1TU3T8 


177777 


P2TL3TS 


177777 


P2T11 


011006 


P2T15 


011056 


P2T20 


011114 


P2T24 


011164 


P2T3 


013426 


P2T33 


011316 


P2T6 


010750 


P3BA 


011376 


P3CC 


011710 


P3T1 


011566 


P4T1 


012240 


RBUSY 


012510 



B MAIN 8 HACYU 27C6573 
DZKLAE SYMBOL TABLE 



RCMSK 


003572 


RCONTB 


012714 


RDATB 


013172 


RDLY 


003206 


RIND 


004050 


RM33B 


014347 


RP1 


002566 


RSTALL® 


104026 


R3TPC 


002360 


RTNNO 


001240 


Rl a 


X000001 


R4 s 


%000004 


'SAVREG® 


104020 


SEEDS 


013272 


SHLTA 


001526 


'SPCNT 


010630 


3RPTR 


000174 


STALA 


003200 


START 


001530 


3TLSPV 


002444 


STPRA 


002432 


8UBTNB 


004500 


SYNCA 


003716 


TABPA 


010644 


TBMRK 


014314 


TENPWR 


004324 


TKB 


001212 


TPB 


001216 


TPL3A 


004616 


TSPCHA 


003542 


T8TRDR 


012620 


TYPC 


002720 


TYPES a 


104001 


TYPLB 


004552 


TYPS 


003014 


WCPTST 


014533 


Z ■ 


000004 



17«NOV« 


-75 14J06 
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RCNT 


001362 


RCONT 


012644 


RCONTC 


012726 


RDAT 


013132 


RDATC 


013226 


RDELAY* 


104025 


RDLYA 


003230 


ROLYB 


003236 


RMB 


010266 


RMTST 


014417 


RM37A 


014353 


RNCNT 


003574 


RP2 


002570 


RSETT2 


002512 


RSTLA 


003320 


RSTLAA 


003340 


RSTPSW 


002362 


RSTREGa 


104021 


RZERA 


013104 


RZERO 


013064 


R2 a 


3000002 


R20ZER 


013230 


R5 ■ 


K000005 


R6 a 


X000006 


SAVRG 


002264 


SCOPE * 


104012 


3EED1 


013316 


SEVEN 


014237 


SOFTSR 


000176 


SP ■ 


2000006 


SPTST 


014445 


SPTSTC 


014363 


8RSET 


001644 


SRSETT 


002474 


STALAA 


003160 


STALB 


003202 


STBF 


004634 


8TBFA 


004650 


STLSRV 


002414 


STPCHVb 


104007 


STRDRVa 


104006 


SUBTEN 


004460 


3VRPC 


002320 


SVRPSW 


002322 


SYNCB 


003724 


SYNCC 


004012 


TABPB 


010654 


TABPC 


010672 


TBMRK1 


014326 


TBTST 


014300 


TIMCAL 


003402 


TIMCLA 


003430 


TKLVL 


001222 


TK8 


001210 


TPBM 


010602 


TPBMA 


010612 


TPS 


001214 


TPVTR 


001224 


TSPCHB 


003550 


TSPCHC 


003500 


TTYTYP 


001230 


TYP 


002666 


TYPD 


002746 


TYPOAT 


003012 


TYPF 


002764 


TYPG 


002776 


TYPLN 


004540 


TYPLN3a 


104016 


TYPSA 


003040 


TYPSB 


003042 


X a 


000002 


XTY 


013756 


a 8 


015142 







RCONTA 


012666 


RDATA 


013136 


RDLCNTb 


003210 


RE8ET2S 


104023 


RM33A 


014341 


RNGEN 


002520 


RSTAL 


003306 


RSTLB 


003342 


RSTRG 


002324 


R0 a 


X000000 


R3 a 


X000003 


S 


014220 


SCOPTR 


001246 


SHALT 


001510 


SPBOT ■ 


001200 


SRESETn 


104011 


STAL 


003146 


STALL a 


104002 


STLMSK 


003204 


STPPA 


002462 


SUBTNA 


004464 


SYCTRA 


004024 


TABP 


010632 


TBCNT 


010626 


TCTR 


004572 


TIMCLB 


003446 


TKVTR 


001220 


TPLVL 


001226 


T3PCH 


003456 


TSTPCH 


012514 


TYPA 


002676 


TYPE a 


104000 


TYPLA 


004546 


TYPL3 


004574 


V 


014223 


Y 


014226 



ERRORS DETECTED! 

aDZKLAE,DZKLAEsDZKLAE 9 /SQL 
RUNTIME! 16 27 SECONDS 
CORE USEDI 15K 



